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 /pretyping/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 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index 44af99e19f..af922be374 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -73,10 +73,10 @@ let rec execute mf env sigma cstr = make_judge cofix larv.(i) | IsSort (Prop c) -> - make_judge_of_prop_contents c + judge_of_prop_contents c | IsSort (Type u) -> - let (j,_) = make_judge_of_type u in j + let (j,_) = judge_of_type u in j | IsAppL (f,args) -> let j = execute mf env sigma f in |