DEFINITION and3_ind()
TYPE =
       P0:Prop.P1:Prop.P2:Prop.P:Prop.(P0P1P2P)(and3 P0 P1 P2)P
BODY =
        assume P0Prop
        assume P1Prop
        assume P2Prop
        assume PProp
        suppose HP0P1P2P
        suppose H1and3 P0 P1 P2
          by cases on H1 we prove P
             case and3_intro H2:P0 H3:P1 H4:P2 
                the thesis becomes P
                by (H H2 H3 H4)
P
          we proved P
       we proved P0:Prop.P1:Prop.P2:Prop.P:Prop.(P0P1P2P)(and3 P0 P1 P2)P