equal (minus_body O) (λm. O)

Axiom axiom_minus_body_O : connectives.equal (nat -> nat) (minus_body O) (fun (m:nat) => O)

axiom axiom_minus_body_O : (equal) (nat -> nat) ((minus_body) (O) ) (\lambda m : nat. (O) )

axiom axiom_minus_body_O : (((connectives.equal) ((nat.nat) -> nat.nat)) (((nat.minus_body) ) ((nat.O) ))) (fun (m : nat.nat) , (nat.O) )

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

Printing for OpenTheory is not working at the moment.