Inductive PA_ob : Type :=
  | PA1 : PA_ob
  | PA2 : PA_ob.Inductive PA_ob : Type :=
  | PA1 : PA_ob
  | PA2 : PA_ob.Inductive PA_ob : Type :=
  | PA1 : PA_ob
  | PA2 : PA_ob.Inductive PA_mor : PA_ob -> PA_ob -> Type :=
  | PA_I1 : PA_mor PA1 PA1
  | PA_I2 : PA_mor PA2 PA2
  | PA_f : I -> PA_mor PA1 PA2.Inductive PA_mor : PA_ob -> PA_ob -> Type :=
  | PA_I1 : PA_mor PA1 PA1
  | PA_I2 : PA_mor PA2 PA2
  | PA_f : I -> PA_mor PA1 PA2.Inductive PA_mor : PA_ob -> PA_ob -> Type :=
  | PA_I1 : PA_mor PA1 PA1
  | PA_I2 : PA_mor PA2 PA2
  | PA_f : I -> PA_mor PA1 PA2.Inductive PA_mor : PA_ob -> PA_ob -> Type :=
  | PA_I1 : PA_mor PA1 PA1
  | PA_I2 : PA_mor PA2 PA2
  | PA_f : I -> PA_mor PA1 PA2.

Lemma PA_21_T : (PA_mor PA2 PA1 -> Type) -> forall x y : PA_ob, PA_mor x y -> Type.