| |
| |
modular-arithmetic |
 | | (def-theorem mod-n-range-in-zz_mod "forall(a:zz, #(a mod modulus,zz_mod))" (theory arithmetic-mod-n) (proof ((apply-macete-with-minor-premises zz_mod-defining-axiom_arithmetic-mod-n) beta-reduce-with-minor-premises (move-to-sibling 1) (apply-macete-with-minor-premises mod-of-integer-is-integer) simplify direct-inference (cut-with-single-formula "forsome(k:zz, a mod modulus =k)") (move-to-sibling 1) (instantiate-existential ("a mod modulus")) simplify (cut-with-single-formula "#(a mod modulus,zz)") (apply-macete-with-minor-premises mod-of-integer-is-integer) simplify (antecedent-inference "with(p:prop,p);") (backchain "with(p:prop,p);") (backchain "with(p:prop,p);") (incorporate-antecedent "with(p:prop,p);") (apply-macete-with-minor-premises mod-characterization) direct-and-antecedent-inference-strategy))) |
 | | (def-theorem *_mod-characterization "forall(a,b,c:zz_mod, *_mod(a,b)=c iff (0<=c and ctheory arithmetic-mod-n) (proof ((unfold-single-defined-constant-globally *_mod) (apply-macete-with-minor-premises congruence-characterization) direct-and-antecedent-inference-strategy (incorporate-antecedent "with(p:prop,p);") (apply-macete-with-minor-premises mod-characterization) direct-and-antecedent-inference-strategy (incorporate-antecedent "with(c:zz_mod,r:rr,r=c);") (apply-macete-with-minor-premises mod-characterization) direct-and-antecedent-inference-strategy (cut-with-single-formula "c mod modulus = c") (apply-macete-with-minor-premises mod-characterization) (unfold-single-defined-constant (0) divides) simplify (cut-with-single-formula "c mod modulus = c") (apply-macete-with-minor-premises mod-characterization) (unfold-single-defined-constant (0) divides) simplify))) |
 | | (def-constant -_mod "lambda(a:zz_mod, (-a) mod modulus)" (theory arithmetic-mod-n)) |
| imps.mcmaster.ca /theories/reals/modular-arithmetic.html (626 words) |
|