diff options
| author | Pierre Roux | 2018-10-19 13:16:25 +0200 |
|---|---|---|
| committer | Pierre Roux | 2019-04-01 22:17:41 +0200 |
| commit | 1c8fd0f7134bcc295e31613c981ef4ef2c21af35 (patch) | |
| tree | 8fb25126d146fa57793bb9ba9e1595d0bcfc60a0 /interp/constrexpr.ml | |
| parent | 424c1973e96dfbf3b2e3245d735853ffa9600373 (diff) | |
Replace type sign = bool with SPlus | SMinus
Diffstat (limited to 'interp/constrexpr.ml')
| -rw-r--r-- | interp/constrexpr.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrexpr.ml b/interp/constrexpr.ml index 757d186c8b..f3d0888fee 100644 --- a/interp/constrexpr.ml +++ b/interp/constrexpr.ml @@ -53,11 +53,11 @@ type proj_flag = int option (** [Some n] = proj of the n-th visible argument *) sign flag. Note that this representation is not unique, due to possible multiple leading zeros, and -0 = +0 *) -type sign = bool +type sign = SPlus | SMinus type raw_natural_number = string type prim_token = - | Numeral of raw_natural_number * sign + | Numeral of sign * raw_natural_number | String of string type instance_expr = Glob_term.glob_level list |