From 865d3a274dc618a4eff13b309109aa559077a933 Mon Sep 17 00:00:00 2001 From: barras Date: Mon, 12 Nov 2001 12:38:08 +0000 Subject: 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 --- pretyping/typing.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'pretyping/typing.ml') 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 -- cgit v1.2.3