Section Extensions.
Let orH := orH L.
Let andH := andH L.
Let existH := existH L.
Let iffH := iffH L.
Let ifThenElseH := ifThenElseH L.

Lemma subFormulaOr :
forall (f1 f2 : fol.Formula L) (v : nat) (s : fol.Term L),
substituteFormula (orH f1 f2) v s =
orH (substituteFormula f1 v s) (substituteFormula f2 v s).