diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/coqlib.ml | 2 | ||||
| -rw-r--r-- | interp/coqlib.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 3a041a27f5..9ce330078b 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -338,6 +338,7 @@ let build_coq_inversion_eq_true_data () = (* The False proposition *) let coq_False = lazy_init_constant ["Logic"] "False" +let coq_proof_admitted = lazy_init_constant ["Logic"] "proof_admitted" (* The True proposition and its unique proof *) let coq_True = lazy_init_constant ["Logic"] "True" @@ -359,6 +360,7 @@ let build_coq_True () = Lazy.force coq_True let build_coq_I () = Lazy.force coq_I let build_coq_False () = Lazy.force coq_False +let build_coq_proof_admitted () = Lazy.force coq_proof_admitted let build_coq_not () = Lazy.force coq_not let build_coq_and () = Lazy.force coq_and let build_coq_conj () = Lazy.force coq_conj diff --git a/interp/coqlib.mli b/interp/coqlib.mli index 5fb206bece..d9c0d3ae05 100644 --- a/interp/coqlib.mli +++ b/interp/coqlib.mli @@ -150,6 +150,7 @@ val build_coq_sumbool : constr delayed (** Connectives The False proposition *) val build_coq_False : constr delayed +val build_coq_proof_admitted : constr delayed (** The True proposition and its unique proof *) val build_coq_True : constr delayed |