proposition: Lemma inl_can_fun_Iv S S' i: inl_same_data S S' -> inl_can_fun S i = inl_can_fun S' i.
proof: Proof. move=> H; rewrite /inl_can_fun (inductive_limit_Iv H) (inl_equiv_Iv H). by rewrite (proj31 H). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)