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) }