diff options
| author | herbelin | 2003-12-19 18:20:53 +0000 |
|---|---|---|
| committer | herbelin | 2003-12-19 18:20:53 +0000 |
| commit | b820ff40cb8053df01ac422f36d5f3520727b5c6 (patch) | |
| tree | 56005796146af1aaf2120c2e76afdce49a89b0c0 /pretyping/rawterm.ml | |
| parent | 3b59ca927cba26b3bfbf53f22c3783bfa03b9f32 (diff) | |
Substitution dans REvar et PEvar plutot que encodage via noeud application pour eviter la confusion avec la (vraie) application
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5114 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/rawterm.ml')
| -rw-r--r-- | pretyping/rawterm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index f11caa566e..78425e107a 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -61,7 +61,7 @@ type hole_kind = type rawconstr = | RRef of (loc * global_reference) | RVar of (loc * identifier) - | REvar of loc * existential_key + | REvar of loc * existential_key * rawconstr list option | RPatVar of loc * (bool * patvar) (* Used for patterns only *) | RApp of loc * rawconstr * rawconstr list | RLambda of loc * name * rawconstr * rawconstr @@ -153,7 +153,7 @@ let map_rawconstr_with_binders_loc loc g f e = function | RSort (_,x) -> RSort (loc,x) | RHole (_,x) -> RHole (loc,x) | RRef (_,x) -> RRef (loc,x) - | REvar (_,x) -> REvar (loc,x) + | REvar (_,x,l) -> REvar (loc,x,l) | RPatVar (_,x) -> RPatVar (loc,x) | RDynamic (_,x) -> RDynamic (loc,x) *) @@ -300,7 +300,7 @@ let rec subst_raw subst raw = let loc_of_rawconstr = function | RRef (loc,_) -> loc | RVar (loc,_) -> loc - | REvar (loc,_) -> loc + | REvar (loc,_,_) -> loc | RPatVar (loc,_) -> loc | RApp (loc,_,_) -> loc | RLambda (loc,_,_,_) -> loc |