diff options
| author | Hugo Herbelin | 2014-08-05 19:08:48 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-08-05 19:52:24 +0200 |
| commit | 467db5040fe2f311f8f5493f89dc8f95647a9a0b (patch) | |
| tree | 5ebbe4139abc44bbef7362aa860c57711d6dcfd9 /proofs | |
| parent | 8e3c749e69649fb45750355e464ce7c16a4462c7 (diff) | |
Uncountably many bullets (+,-,*,++,--,**,+++,...).
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof_global.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 96bc265fc2..52282375f7 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -386,16 +386,16 @@ module Bullet = struct exception FailedFocusBullet of t let bullet_eq b1 b2 = match b1, b2 with - | Vernacexpr.Dash, Vernacexpr.Dash -> true - | Vernacexpr.Star, Vernacexpr.Star -> true - | Vernacexpr.Plus, Vernacexpr.Plus -> true + | Vernacexpr.Dash n1, Vernacexpr.Dash n2 -> n1 = n2 + | Vernacexpr.Star n1, Vernacexpr.Star n2 -> n1 = n2 + | Vernacexpr.Plus n1, Vernacexpr.Plus n2 -> n1 = n2 | _ -> false let pr_bullet b = match b with - | Vernacexpr.Dash -> str "-" - | Vernacexpr.Star -> str "*" - | Vernacexpr.Plus -> str "+" + | Vernacexpr.Dash n -> str (String.make n '-') + | Vernacexpr.Star n -> str (String.make n '*') + | Vernacexpr.Plus n -> str (String.make n '+') let _ = Errors.register_handler begin function |