From b9454ae1aebaea716c84fd41d5452d9cbf1c781a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 6 Apr 2004 17:30:47 +0000
Subject: sumbool et sumor affich  avec 'if' si possible

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5642 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/Specif.v | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'theories')

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.
-- 
cgit v1.2.3