diff options
Diffstat (limited to 'src/zchaff/zchaff.ml')
-rw-r--r-- | src/zchaff/zchaff.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/zchaff/zchaff.ml b/src/zchaff/zchaff.ml index c9ed267..2f08d99 100644 --- a/src/zchaff/zchaff.ml +++ b/src/zchaff/zchaff.ml @@ -494,13 +494,9 @@ let make_proof pform_tbl atom_tbl env reify_form l = (* The whole tactic *) -let tactic gl = +let tactic env sigma t = SmtTrace.clear (); - let env = Tacmach.pf_env gl in - (* let sigma = Tacmach.project gl in *) - let t = Tacmach.pf_concl gl in - let (forall_let, concl) = Term.decompose_prod_assum t in let a, b = get_arguments concl in let reify_atom = Atom.create () in @@ -526,4 +522,4 @@ let tactic gl = let compose_lam_assum forall_let body = List.fold_left (fun t rd -> Term.mkLambda_or_LetIn rd t) body forall_let in let res = compose_lam_assum forall_let body in - Tactics.exact_no_check res gl + Structures.vm_cast_no_check res |