diff options
| author | pboutill | 2012-04-27 16:43:27 +0000 |
|---|---|---|
| committer | pboutill | 2012-04-27 16:43:27 +0000 |
| commit | 591aefbf015cf30912bf5ade76feb000bb12cdd5 (patch) | |
| tree | 97336604c80df384c0fb4d3a6654945caca2e882 /pretyping | |
| parent | a1a3e3b84bc7dac2ae1ddae1770adde914732315 (diff) | |
Partial revert of r15148 in order to compile with Camlp4
+ comment correction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15253 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/glob_term.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/glob_term.mli b/pretyping/glob_term.mli index a4feac3586..fca66fd28d 100644 --- a/pretyping/glob_term.mli +++ b/pretyping/glob_term.mli @@ -25,7 +25,7 @@ open Nametab locs here refers to the ident's location, not whole pat *) type cases_pattern = | PatVar of loc * name - | PatCstr of loc * constructor * cases_pattern list * name + | PatCstr of loc * constructor * cases_pattern list * name (** [PatCstr(p,C,l,x)] = "|'C' 'l' as 'x'" *) val cases_pattern_loc : cases_pattern -> loc @@ -90,7 +90,7 @@ and tomatch_tuple = (glob_constr * predicate_pattern) and tomatch_tuples = tomatch_tuple list and cases_clause = (loc * identifier list * cases_pattern list * glob_constr) -(** [(p,il,cl,t)] = "|'cl' as 'il' => 't'" *) +(** [(p,il,cl,t)] = "|'cl' => 't'" where FV(t) \subset il *) and cases_clauses = cases_clause list |