diff options
| author | herbelin | 2002-11-18 14:17:08 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-18 14:17:08 +0000 |
| commit | 02dd2905d921bbe33376b40933c5c5630578811e (patch) | |
| tree | 24a252effb9089b21bf67d06f9fb239467cc7ddf /pretyping | |
| parent | 0ad3af7804b5cf3cc6a011fc43eb6141c0e2fde2 (diff) | |
Ajout de Cases dans abbreviatable constr (aconstr) [utilisé dans la
contrib Suresnes/MiniC].
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3252 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/rawterm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index eaba7663a7..7fd10ef23f 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -138,6 +138,7 @@ let map_rawconstr_with_binders_loc loc g f e = function | RDynamic (_,x) -> RDynamic (loc,x) *) +(* let rec subst_pat subst pat = match pat with | PatVar _ -> pat @@ -146,7 +147,7 @@ let rec subst_pat subst pat = and cpl' = list_smartmap (subst_pat subst) cpl in if kn' == kn && cpl' == cpl then pat else PatCstr (loc,((kn',i),j),cpl',n) - +*) (* let rec subst_raw subst raw = match raw with |