∀ n, equal (plus_body (n+1)) (λm. (n + m)+1)

Axiom axiom_plus_body_S : forall (n:nat), connectives.equal (nat -> nat) (plus_body (S n)) (fun (m:nat) => S (plus n m))

axiom axiom_plus_body_S : \forall (n:nat). (equal) (nat -> nat) ((plus_body) ((S) n)) (\lambda m : nat. (S) ((plus) n m))

axiom axiom_plus_body_S : forall (n:nat.nat) , (((connectives.equal) ((nat.nat) -> nat.nat)) (((nat.plus_body) ) (((nat.S) ) (n)))) (fun (m : nat.nat) , ((nat.S) ) ((((nat.plus) ) (n)) (m)))

axiom_plus_body_S : AXIOM (FORALL(n:nat_sttfa.sttfa_nat):connectives_sttfa_th.equal[[nat_sttfa.sttfa_nat -> nat_sttfa.sttfa_nat]](nat_sttfa.plus_body(nat_sttfa.sttfa_S(n)))((LAMBDA(m:nat_sttfa.sttfa_nat):nat_sttfa.sttfa_S(nat_sttfa.plus(n)(m)))))

Printing for OpenTheory is not working at the moment.