Section RepresentableExpressible.
Variable T : System.
Hypothesis closedT1: (ClosedSystem LNN T).

(* Specifications: *)
Lemma closedT : forall v : nat, ~ In_freeVarSys LNN v T.
Fixpoint RepresentableHalf1 (n : nat) : naryFunc n -> Formula -> Prop :=
match n return (naryFunc n -> Formula -> Prop) with
| O =>
fun (f : naryFunc 0) (A : Formula) =>
SysPrf T (impH A (equal (var 0) (natToTerm f)))
| S m =>
fun (f : naryFunc (S m)) (A : Formula) =>
forall a : nat,
RepresentableHalf1 m (f a)
(substituteFormula LNN A (S m) (natToTerm a))
end.