diff options
| -rwxr-xr-x | theories/Init/Specif.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v index 4d145fbdda..786a86dc3b 100755 --- a/theories/Init/Specif.v +++ b/theories/Init/Specif.v @@ -106,11 +106,15 @@ Inductive sumbool (A B:Prop) : Set := | right : B -> {A} + {B} where "{ A } + { B }" := (sumbool A B) : type_scope. +Add Printing If sumbool. + Inductive sumor (A:Set) (B:Prop) : Set := | inleft : A -> A + {B} | inright : B -> A + {B} where "A + { B }" := (sumor A B) : type_scope. +Add Printing If sumor. + (** Choice *) Section Choice_lemmas. |