proposition: Lemma SSC2_1_f_com_law : Com_law (axf:=k SSC2_1_i) (bxg:=axh) SSC2_1_t.
proof: Proof. unfold Com_law in |- *. apply (Prf_SSC2_law (s _) (Mor_com_ob axh)). Qed.
imports: Th_Adjoint Pres_Limits Comma_Complete Th_Initial Comma_UA FAFT_SSC2