diff options
author | 2001-11-12 12:38:08 +0000 | |
---|---|---|
committer | 2001-11-12 12:38:08 +0000 | |
commit | 865d3a274dc618a4eff13b309109aa559077a933 (patch) | |
tree | dac5bc457e5ad9b955b21012b230ed97de22d92b /pretyping/typing.ml | |
parent | da33e695040678d74622213af2cd43d32140d186 (diff) |
Suites modifs du noyau. Univ devient purement fonctionnel.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2183 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typing.ml')
-rw-r--r-- | pretyping/typing.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index b36c03204..5b759e74c 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -86,7 +86,7 @@ let rec execute mf env sigma cstr = judge_of_prop_contents c | Sort (Type u) -> - let (j,_) = judge_of_type u in j + judge_of_type u | App (f,args) -> let j = execute mf env sigma f in @@ -107,8 +107,7 @@ let rec execute mf env sigma cstr = let env1 = push_rel (name,None,varj.utj_val) env in let j' = execute mf env1 sigma c2 in let varj' = type_judgment env sigma j' in - let (j,_) = judge_of_product env1 name varj varj' in - j + judge_of_product env1 name varj varj' | LetIn (name,c1,c2,c3) -> let j1 = execute mf env sigma c1 in |