+++ /dev/null
-alias and /Coq/Init/Logic/Conjunction/and.ind#1/1
-alias conj /Coq/Init/Logic/Conjunction/and.ind#1/1/1
-
-alias or /Coq/Init/Logic/Disjunction/or.ind#1/1
-alias or_introl /Coq/Init/Logic/Disjunction/or.ind#1/1/1
-alias or_intror /Coq/Init/Logic/Disjunction/or.ind#1/1/2
-
-\A:Prop.
-\B:Prop.
-\H:(and A B).
- Case (H : and ; (or A B)) { \a:A.\b:B.(or_introl A B a) }