We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 52649f5 commit 6176c2cCopy full SHA for 6176c2c
2 files changed
src/ecReduction.ml
@@ -1825,7 +1825,7 @@ module EqTest = struct
1825
include EqMod_base(struct
1826
let for_expr env ~norm:_ alpha e1 e2 =
1827
let convert e =
1828
- let f = form_of_expr e in
+ let f = (ss_inv_of_expr (EcIdent.create "&dummy") e).inv in
1829
1830
if Mid.is_empty alpha then f else
1831
src/phl/ecPhlDeno.ml
@@ -436,7 +436,7 @@ let process_pre tc hyps prl prr pre post =
436
let gen_r f = ss_inv_generalize_right f mr in
437
let gen_l f = ss_inv_generalize_left f ml in
438
dof fl al ml pml gen_r; dof fr ar mr pmr gen_l;
439
- map_ts_inv f_ands !eqs
+ map_ts_inv ~ml ~mr f_ands !eqs
440
441
(* -------------------------------------------------------------------- *)
442
let post_iff ml mr eq env evl evr =
0 commit comments