diff options
| author | herbelin | 1999-12-01 23:13:01 +0000 |
|---|---|---|
| committer | herbelin | 1999-12-01 23:13:01 +0000 |
| commit | f99150300603ce0d87db716efc52fa88967d4460 (patch) | |
| tree | 4a85be13031030ac01659359b032411bfd63a73b /kernel/safe_typing.ml | |
| parent | 3a49dbf016e1ebf8f8d12ed43fde14c5619ca55e (diff) | |
Intégration du Termast et du Retyping de HH, et modifications connexes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@185 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 04d63da8ff..8f1ad37874 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -89,10 +89,10 @@ let rec execute mf env cstr = (make_judge cofix larv.(i), cst) | IsSort (Prop c) -> - (make_judge_of_prop_contents c, cst0) + (judge_of_prop_contents c, cst0) | IsSort (Type u) -> - make_judge_of_type u + judge_of_type u | IsAppL (f,args) -> let (j,cst1) = execute mf env f in |