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_rect : forall (P : PA_mor PA2 PA1 -> Type) (x : PA_mor PA2 PA1), P x.