proposition: Lemma fmor_funtyd : forall d (f:fun_type_data d) u, mor (source (funtyd f)) u -> fmor (funtyd f) u = funtyd_fmor f u.
proof: Proof. ir. uf funtyd. rww fmor_create. rwi source_funtyd H. am. Qed.
imports: Arith cat_examples cardinal fc_limits