fact.eq_fact_body_S
∀ n, leibniz (fact_body (n+1)) ((!n) × (n+1))
Theorem eq_fact_body_S : forall (n:nat.nat), leibniz.leibniz (nat.nat) (fact_body (nat.S n)) (nat.times (fact n) (nat.S n)).
theorem eq_fact_body_S : \forall (n:nat). (leibniz) (nat) ((fact_body) ((S) n)) ((times) ((fact) n) ((S) n)).
theorem eq_fact_body_S : forall (n:nat.nat) , (((leibniz.leibniz) (nat.nat)) (((fact.fact_body) ) (((nat.S) ) (n)))) ((((nat.times) ) (((fact.fact) ) (n))) (((nat.S) ) (n))).
eq_fact_body_S : LEMMA (FORALL(n:nat_sttfa_th.sttfa_nat):leibniz_sttfa_th.leibniz[nat_sttfa_th.sttfa_nat](fact_sttfa.fact_body(nat_sttfa_th.sttfa_S(n)))(nat_sttfa_th.times(fact_sttfa.sttfa_fact(n))(nat_sttfa_th.sttfa_S(n))))
Printing for OpenTheory is not working at the moment.