Notation Formula := (Formula L) (only parsing).Notation Formulas := (Formulas L) (only parsing).Notation System := (System L) (only parsing).Notation Term := (Term L) (only parsing).Notation Terms := (Terms L) (only parsing).

Lemma eqTrans : forall (T : fol.System L) (a b c : fol.Term L), SysPrf T (equal a b) -> SysPrf T (equal b c) -> SysPrf T (equal a c).