From 5a1b0fdd5bab9b40c10d71c09fdb58725e7373bc Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Sat, 30 Apr 2016 22:08:11 +0200 Subject: Print warnings when checking proofs with holes --- src/versions/native/structures.ml | 5 +++++ src/versions/standard/structures.ml | 5 +++++ 2 files changed, 10 insertions(+) (limited to 'src/versions') 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 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) -- cgit