We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 360a3f1 commit 295dc86Copy full SHA for 295dc86
2 files changed
Smt/Reconstruct/ZMod.lean
@@ -1088,7 +1088,7 @@ open Qq
1088
let rs ← rs.foldrM reconstructZMods q([])
1089
let hps : Q(variety (ideal $ps) ≠ ∅) ← reconstructProof pf.getChildren[0]!
1090
let hp : Q(«$p».toPoly ∈ ideal $ps) ← reconstructProof pf.getChildren[1]!
1091
- let tac := if ← useNative then decide else nativeDecide
+ let tac := if ← useNative then nativeDecide else decide
1092
let hpirs : Q(«$p».completeRoots $i $rs) ← tac q(«$p».completeRoots $i $rs)
1093
addThm q(orN («$rs».map fun r => variety (ideal ($ps ++ [.X $i - .C r])) ≠ ∅))
1094
q(@root_branch $o $ho $ps $p $i $rs $hps $hp $hpirs)
0 commit comments