helm/gTopLevel/esempi/and_implies_or.cic

   1 alias and  /Coq/Init/Logic/Conjunction/and.ind#1/1
   2 alias conj /Coq/Init/Logic/Conjunction/and.ind#1/1/1
   3
   4 alias or        /Coq/Init/Logic/Disjunction/or.ind#1/1
   5 alias or_introl /Coq/Init/Logic/Disjunction/or.ind#1/1/1
   6 alias or_intror /Coq/Init/Logic/Disjunction/or.ind#1/1/2
   7
   8 \A:Prop.
   9 \B:Prop.
  10 \H:(and A B).
  11  Case (H : and ; (or A B)) { \a:A.\b:B.(or_introl A B a) }