∀ p, leibniz (λm. λn. if (dividesb n m) then n else (gcd_aux p n (mod m n))) (gcd_aux_body (p+1))

Theorem sym_eq_gcd_aux_body_S : forall (p:nat.nat), leibniz.leibniz (nat.nat -> nat.nat -> nat.nat) (fun (m:nat.nat) => fun (n:nat.nat) => bool.match_bool_type (nat.nat) n (gcd_aux p n (div_mod.mod m n)) (primes.dividesb n m)) (gcd_aux_body (nat.S p)).

theorem sym_eq_gcd_aux_body_S : \forall (p:nat). (leibniz) (nat -> nat -> nat) (\lambda m : nat. \lambda n : nat. (match_bool_type) (nat) n ((gcd_aux) p n ((mod) m n)) ((dividesb) n m)) ((gcd_aux_body) ((S) p)).

theorem sym_eq_gcd_aux_body_S : forall (p:nat.nat) , (((leibniz.leibniz) ((nat.nat) -> (nat.nat) -> nat.nat)) (fun (m : nat.nat) , fun (n : nat.nat) , ((((bool.match_bool_type) (nat.nat)) (n)) (((((gcd.gcd_aux) ) (p)) (n)) ((((div_mod.mod) ) (m)) (n)))) ((((primes.dividesb) ) (n)) (m)))) (((gcd.gcd_aux_body) ) (((nat.S) ) (p))).

sym_eq_gcd_aux_body_S : LEMMA (FORALL(p:nat_sttfa_th.sttfa_nat):leibniz_sttfa_th.leibniz[[nat_sttfa_th.sttfa_nat -> [nat_sttfa_th.sttfa_nat -> nat_sttfa_th.sttfa_nat]]]((LAMBDA(m:nat_sttfa_th.sttfa_nat):(LAMBDA(n:nat_sttfa_th.sttfa_nat):bool_sttfa_th.match_bool_type[nat_sttfa_th.sttfa_nat](n)(gcd_sttfa.gcd_aux(p)(n)(div_mod_sttfa_th.mod(m)(n)))(primes_sttfa_th.dividesb(n)(m)))))(gcd_sttfa.gcd_aux_body(nat_sttfa_th.sttfa_S(p))))

Printing for OpenTheory is not working at the moment.