proposition: Lemma edge_cone_pullback : forall f c x, ob (source f) x -> edge (cone_pullback f c) x = edge c (fob f x).
proof: Proof. ir. uf edge. rw edge_nt_cone_pullback. rw ntrans_htrans_right. tv. am. Qed.
imports: Arith nat_trans