diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-10-07 15:30:33 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-10-07 15:30:33 +0200 |
commit | ab72bee190e0e7b6a4136298a70f9fc5cfa0f907 (patch) | |
tree | a1c60385eafa5a63adc56c28e5422e32645aa641 /src/zchaff/zchaff.ml | |
parent | 3fb5bc25ded5ba737ec3c62d2cc49e240fc9cc3e (diff) | |
download | smtcoq-ab72bee190e0e7b6a4136298a70f9fc5cfa0f907.tar.gz smtcoq-ab72bee190e0e7b6a4136298a70f9fc5cfa0f907.zip |
Corrected a bug with holes in proofs
Diffstat (limited to 'src/zchaff/zchaff.ml')
-rw-r--r-- | src/zchaff/zchaff.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/zchaff/zchaff.ml b/src/zchaff/zchaff.ml index bd656aa..106c0b5 100644 --- a/src/zchaff/zchaff.ml +++ b/src/zchaff/zchaff.ml @@ -514,7 +514,7 @@ let make_proof pform_tbl atom_tbl env reify_form l = (* The whole tactic *) -let tactic env sigma t = +let core_tactic env sigma t = SmtTrace.clear (); let (forall_let, concl) = Term.decompose_prod_assum t in @@ -548,3 +548,6 @@ let tactic env sigma t = (Structures.tclTHEN (Structures.set_evars_tac res_nocast) (Structures.vm_cast_no_check res_cast)) + + +let tactic () = Structures.tclTHEN Tactics.intros (Structures.mk_tactic core_tactic) |