diff options
| author | gareuselesinge | 2013-08-08 18:50:59 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-08-08 18:50:59 +0000 |
| commit | 1f48326c7edf7f6e7062633494d25b254a6db82c (patch) | |
| tree | ad4abb42a890edb8a0f5c92bc658e0a26b365526 /interp | |
| parent | 9ea680a275d3a93a35c3f09f53f26ee74d51fb00 (diff) | |
Side effect free implementation of admit (Isabelle's oracle)
new Axiom in Logic.v, proof_admitted : False.
admit now simply cases proof_admitted and does
not create a new Axiom in the environment.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16673 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |