proposition: Lemma cone_transform_vident : forall f c, f = socle c -> is_cone c -> cone_transform (vident f) c = c.
proof: Proof. ir. uf cone_transform. rw weak_left_vident. lu. app edge_nt_axioms. rww target_edge_nt. Qed.
imports: Arith nat_trans