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/verit | |
parent | 3fb5bc25ded5ba737ec3c62d2cc49e240fc9cc3e (diff) | |
download | smtcoq-ab72bee190e0e7b6a4136298a70f9fc5cfa0f907.tar.gz smtcoq-ab72bee190e0e7b6a4136298a70f9fc5cfa0f907.zip |
Corrected a bug with holes in proofs
Diffstat (limited to 'src/verit')
-rw-r--r-- | src/verit/verit.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/verit/verit.ml b/src/verit/verit.ml index 48ae312..e7ad9b1 100644 --- a/src/verit/verit.ml +++ b/src/verit/verit.ml @@ -149,10 +149,10 @@ let call_verit rt ro fl root = | VeritSyntax.Sat -> Structures.error "veriT can't prove this" -let tactic env sigma t = +let tactic () = clear_all (); let rt = Btype.create () in let ro = Op.create () in let ra = VeritSyntax.ra in let rf = VeritSyntax.rf in - SmtCommands.tactic call_verit rt ro ra rf env sigma t + SmtCommands.tactic call_verit rt ro ra rf |