Fixpoint leftTrans_makeTrans_acc x y (l : leftTrans x y) : makeTrans x y :=
match l with
| LTFin pf => TStep pf
| LTStep _ pf pfL =>
TTrans (TStep pf) (leftTrans_makeTrans_acc pfL)
end.
Fixpoint leftTrans_trans x y (l : leftTrans x y) : forall z (r : leftTrans y z), leftTrans x z :=
match l with
| LTFin pf => fun _ pfL => LTStep pf pfL
| LTStep _ pf pfL => fun _ pfR => LTStep pf (leftTrans_trans pfL pfR)
end.

Theorem makeTrans_rightTrans : forall s s',
makeTrans s s' <-> rightTrans s s'.