diff options
author | 2010-12-25 13:25:59 +0000 | |
---|---|---|
committer | 2010-12-25 13:25:59 +0000 | |
commit | 2c6c48388fa5ce84d66eb92fd9574951628a2c34 (patch) | |
tree | 099c838843543d3b457417b10eb4f8b1e9d5657d /interp | |
parent | 240471f4c9dec6b6b1f97901544d04f53c0902c3 (diff) |
Rename mkR* smart constructors (mostly in funind)
perl -pi -e 's/(mk)R(Ref|Var|Evar|PatVar|App|Lambda|Prod|LetIn|Case
s|LetTuple|If|Rec|Sort|Hole|Cast|Dynamic|Prop|Type|Fix|CoFix|Struct
Rec|WfRec|MeasureRec)/\1G\2/g' **/*.ml*
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13758 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
-rw-r--r-- | interp/constrintern.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 1b3cedd77..8454b8fef 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -293,14 +293,14 @@ let set_type_scope (ids,unb,tmp_scope,scopes) = let reset_tmp_scope (ids,unb,tmp_scope,scopes) = (ids,unb,None,scopes) -let rec it_mkRProd env body = +let rec it_mkGProd env body = match env with - (na, bk, _, t) :: tl -> it_mkRProd tl (GProd (dummy_loc, na, bk, t, body)) + (na, bk, _, t) :: tl -> it_mkGProd tl (GProd (dummy_loc, na, bk, t, body)) | [] -> body -let rec it_mkRLambda env body = +let rec it_mkGLambda env body = match env with - (na, bk, _, t) :: tl -> it_mkRLambda tl (GLambda (dummy_loc, na, bk, t, body)) + (na, bk, _, t) :: tl -> it_mkGLambda tl (GLambda (dummy_loc, na, bk, t, body)) | [] -> body (**********************************************************************) @@ -1356,7 +1356,7 @@ let internalize sigma globalenv env allow_patvar lvar c = | Generalized (b,b',t) -> let env, ibind = intern_generalized_binder intern_type lvar env [] (List.hd nal) b b' t ty in let body = intern_type env body in - it_mkRProd ibind body + it_mkGProd ibind body and iterate_lam loc2 env bk ty body nal = let rec default env bk = function @@ -1371,7 +1371,7 @@ let internalize sigma globalenv env allow_patvar lvar c = | Generalized (b, b', t) -> let env, ibind = intern_generalized_binder intern_type lvar env [] (List.hd nal) b b' t ty in let body = intern env body in - it_mkRLambda ibind body + it_mkGLambda ibind body and intern_impargs c env l subscopes args = let l = select_impargs_size (List.length args) l in |