diff options
Diffstat (limited to 'src/versions/native')
| -rw-r--r-- | src/versions/native/structures.ml | 1 | ||||
| -rw-r--r-- | src/versions/native/structures.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index ee4bf96..94d68c1 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -168,6 +168,7 @@ let set_evars_tac _ = Tacticals.tclIDTAC (* Other differences between the two versions of Coq *) type constr_expr = Topconstr.constr_expr let error = Errors.error +let warning _ s = Pp.warning s let extern_constr = Constrextern.extern_constr true Environ.empty_env let destruct_rel_decl (n, _, t) = n, t let interp_constr env sigma = Constrintern.interp_constr sigma env diff --git a/src/versions/native/structures.mli b/src/versions/native/structures.mli index 939ffc7..775f7be 100644 --- a/src/versions/native/structures.mli +++ b/src/versions/native/structures.mli @@ -106,6 +106,7 @@ val set_evars_tac : 'a -> Proof_type.tactic (* Other differences between the two versions of Coq *) type constr_expr = Topconstr.constr_expr val error : string -> 'a +val warning : string -> string -> unit val extern_constr : constr -> Topconstr.constr_expr val destruct_rel_decl : Term.rel_declaration -> name * types val interp_constr : Environ.env -> Evd.evar_map -> Topconstr.constr_expr -> constr |