diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 14:30:51 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 14:30:51 +0200 |
commit | 73e19ad0aac3cbd472b8add74594bbc158fce334 (patch) | |
tree | 3a934afc8948023512c8943599d6e8044e15886f /src/zchaff/zchaff.ml | |
parent | e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e (diff) | |
download | smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.tar.gz smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.zip |
Uniform treatment of sat and smt tactics
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 |