diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-25 13:25:59 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-12-25 13:25:59 +0000 |
| commit | 2c6c48388fa5ce84d66eb92fd9574951628a2c34 (patch) | |
| tree | 099c838843543d3b457417b10eb4f8b1e9d5657d /pretyping/pattern.ml | |
| 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 'pretyping/pattern.ml')
| -rw-r--r-- | pretyping/pattern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/pattern.ml b/pretyping/pattern.ml index 50dd413c6..ae86f3142 100644 --- a/pretyping/pattern.ml +++ b/pretyping/pattern.ml @@ -285,8 +285,8 @@ let rec pat_of_raw metas vars = function PIf (pat_of_raw metas vars c, pat_of_raw metas vars b1,pat_of_raw metas vars b2) | GLetTuple (loc,nal,(_,None),b,c) -> - let mkRLambda c na = GLambda (loc,na,Explicit,GHole (loc,Evd.InternalHole),c) in - let c = List.fold_left mkRLambda c nal in + let mkGLambda c na = GLambda (loc,na,Explicit,GHole (loc,Evd.InternalHole),c) in + let c = List.fold_left mkGLambda c nal in PCase ((LetStyle,[|1|],None,None),PMeta None,pat_of_raw metas vars b, [|pat_of_raw metas vars c|]) | GCases (loc,sty,p,[c,(na,indnames)],brs) -> |