2 files changed, 10 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
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)