DEFINITION ex_3_ind()
TYPE =
       A0:Set
         .A1:Set.A2:Set.P0:A0A1A2Prop.P:Prop.(a:A0.a1:A1.a2:A2.(P0 a a1 a2)P)(ex_3 A0 A1 A2 P0)P
BODY =
        assume A0Set
        assume A1Set
        assume A2Set
        assume P0A0A1A2Prop
        assume PProp
        suppose Ha:A0.a1:A1.a2:A2.(P0 a a1 a2)P
        suppose H1ex_3 A0 A1 A2 P0
          by cases on H1 we prove P
             case ex_3_intro a:A0 a1:A1 a2:A2 H2:P0 a a1 a2 
                the thesis becomes P
                by (H . . . H2)
P
          we proved P
       we proved 
          A0:Set
            .A1:Set.A2:Set.P0:A0A1A2Prop.P:Prop.(a:A0.a1:A1.a2:A2.(P0 a a1 a2)P)(ex_3 A0 A1 A2 P0)P