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/standard/structures.ml | |
| parent | 1aa3a9cb2171de7a68d00fb4c30b81c8d2689979 (diff) | |
| download | smtcoq-5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc.tar.gz smtcoq-5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc.zip | |
Print warnings when checking proofs with holes
Diffstat (limited to 'src/versions/standard/structures.ml')
| -rw-r--r-- | src/versions/standard/structures.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index 26a8cc1..6921593 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -128,3 +128,8 @@ let mk_smt_tactic tac = let t = Proofview.Goal.concl gl in tac env sigma t ) + +let ppconstr_lsimpleconstr = Ppconstr.lsimpleconstr +let constrextern_extern_constr = + let env = Global.env () in + Constrextern.extern_constr false env (Evd.from_env env) |