Remark makeTrace1 :
forall (f : fol.Formula L) (v : nat) (s : fol.Term L),
cTriplePi1 (makeTrace f (v, s)) = cTriple v (codeTerm s) (codeFormula f).
Remark makeTrace2 :
forall (f : fol.Formula L) (v : nat) (s : fol.Term L),
cTriplePi2 (makeTrace f (v, s)) = codeFormula (substituteFormula L f v s).

Lemma makeTraceCorrect :
forall (f : fol.Formula L) (v : nat) (s : fol.Term L),
checkSubFormulaTrace (makeTrace f (v, s)) = 1.