proposition: Lemma Comp_PA_fact3 : forall (i : I) (g : PA_mor PA2 PA2), Comp_PA_mor (PA_f i) g =_S PA_f i.
proof: Proof. intros i g; apply (PA_22_ind (P:=fun x' : PA_mor PA2 PA2 => Comp_PA_mor (PA_f i) x' =_S PA_f i)). apply Refl. Qed.
imports: BasicTypes Category