diff options
| author | msozeau | 2006-06-22 12:51:04 +0000 |
|---|---|---|
| committer | msozeau | 2006-06-22 12:51:04 +0000 |
| commit | 098236cf193fb98d2990c6d52d53a4d4b3f72ba0 (patch) | |
| tree | 8e96f7176a21d4b338ecf38c66bbf4a9465b5294 /pretyping | |
| parent | 0f03185388e6d4d2ac376e2e8120437a6ae471b7 (diff) | |
Added {measure x f} as a valid recursion order.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/rawterm.ml | 2 | ||||
| -rw-r--r-- | pretyping/rawterm.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index 9a0e51e108..78e616d98a 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -73,7 +73,7 @@ type rawconstr = and rawdecl = name * rawconstr option * rawconstr -and fix_recursion_order = RStructRec | RWfRec of rawconstr +and fix_recursion_order = RStructRec | RWfRec of rawconstr | RMeasureRec of rawconstr and fix_kind = | RFix of ((int option * fix_recursion_order) array * int) diff --git a/pretyping/rawterm.mli b/pretyping/rawterm.mli index f6541ff314..c61c61b0f3 100644 --- a/pretyping/rawterm.mli +++ b/pretyping/rawterm.mli @@ -70,7 +70,7 @@ type rawconstr = and rawdecl = name * rawconstr option * rawconstr -and fix_recursion_order = RStructRec | RWfRec of rawconstr +and fix_recursion_order = RStructRec | RWfRec of rawconstr | RMeasureRec of rawconstr and fix_kind = | RFix of ((int option * fix_recursion_order) array * int) |