equal (plus_body O) (λm. m)

Axiom axiom_plus_body_O : connectives.equal (nat -> nat) (plus_body O) (fun (m:nat) => m)

axiom axiom_plus_body_O : (equal) (nat -> nat) ((plus_body) (O) ) (\lambda m : nat. m)

axiom axiom_plus_body_O : (((connectives.equal) ((nat.nat) -> nat.nat)) (((nat.plus_body) ) ((nat.O) ))) (fun (m : nat.nat) , m)

axiom_plus_body_O : AXIOM connectives_sttfa_th.equal[[nat_sttfa.sttfa_nat -> nat_sttfa.sttfa_nat]](nat_sttfa.plus_body(nat_sttfa.sttfa_O))((LAMBDA(m:nat_sttfa.sttfa_nat):m))

Printing for OpenTheory is not working at the moment.