diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 22:08:11 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 22:08:11 +0200 |
commit | 5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc (patch) | |
tree | 48a05ea11844e7a1d920900b7ad5e95af84f7d03 /src/versions/native | |
parent | 1aa3a9cb2171de7a68d00fb4c30b81c8d2689979 (diff) | |
download | smtcoq-5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc.tar.gz smtcoq-5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc.zip |
Print warnings when checking proofs with holes
Diffstat (limited to 'src/versions/native')
-rw-r--r-- | src/versions/native/structures.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index 51e14d6..a35d04b 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -89,3 +89,8 @@ let mk_smt_tactic tac gl = let sigma = Tacmach.project gl in let t = Tacmach.pf_concl gl in tac env sigma t gl + +let ppconstr_lsimpleconstr = Ppconstr.lsimple +let constrextern_extern_constr = + let env = Global.env () in + Constrextern.extern_constr false env |