diff options
| author | filliatr | 1999-12-01 13:56:43 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-01 13:56:43 +0000 |
| commit | 9a7f9eeb6e5388b56e575a60aeac87330744440c (patch) | |
| tree | 6200eeb1681270f6b5ee26bf67fa1d4e76e2c315 /pretyping | |
| parent | 1ec06d75ba68d7b5c21f704c3e0dfd1c80e328c3 (diff) | |
mise au point Declare et avancee dans Astterm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@175 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/typing.ml | 3 | ||||
| -rw-r--r-- | pretyping/typing.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index c12f9bb34f..44af99e19f 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -136,6 +136,9 @@ let safe_machine env sigma constr = let mf = { fix = false; nocheck = false } in execute mf env sigma constr +let unsafe_machine env sigma constr = + let mf = { fix = false; nocheck = true } in + execute mf env sigma constr (* Type of a constr *) diff --git a/pretyping/typing.mli b/pretyping/typing.mli index 80fcc5ec99..ee68e518f4 100644 --- a/pretyping/typing.mli +++ b/pretyping/typing.mli @@ -10,6 +10,8 @@ open Evd (* This module provides the typing machine with existential variables (but without universes). *) +val unsafe_machine : env -> 'a evar_map -> constr -> unsafe_judgment + val type_of : env -> 'a evar_map -> constr -> constr val execute_type : env -> 'a evar_map -> constr -> typed_type |