diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 23:07:38 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 23:07:38 +0200 |
| commit | a5bd782f300c3767936fc3f45df6a09cda185370 (patch) | |
| tree | bb3c0753a54e035fec56f78edbae84485a50b878 /src/verit/verit.ml | |
| parent | 048f0170612ee39f6bc736246fca82d960e79a18 (diff) | |
| download | smtcoq-a5bd782f300c3767936fc3f45df6a09cda185370.tar.gz smtcoq-a5bd782f300c3767936fc3f45df6a09cda185370.zip | |
Both native-coq and Coq 8.5 are fully supported
Diffstat (limited to 'src/verit/verit.ml')
| -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 3a1abc0..d2db93e 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 gl = +let tactic env sigma t = 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 gl + SmtCommands.tactic call_verit rt ro ra rf env sigma t |