From 36b41495df82bdc010e1c9f120bc9cd694f809a7 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Mon, 6 Feb 2006 09:58:37 +0000 Subject: [PATCH] termine bacato. --- matita/tests/SK.ma | 284 ++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 282 insertions(+), 2 deletions(-) diff --git a/matita/tests/SK.ma b/matita/tests/SK.ma index 2aa5f51e9..76485432f 100644 --- a/matita/tests/SK.ma +++ b/matita/tests/SK.ma @@ -15,7 +15,12 @@ set "baseuri" "cic:/matita/SK/". include "legacy/coq.ma". -alias symbol "eq" = "Coq's leibnitz's equality". + +alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)". +alias id "eq" = "cic:/Coq/Init/Logic/eq.ind#xpointer(1/1)". +alias id "eq_ind" = "cic:/Coq/Init/Logic/eq_ind.con". +alias id "eq_ind_r" = "cic:/Coq/Init/Logic/eq_ind_r.con". +alias id "sym_eq" = "cic:/Coq/Init/Logic/sym_eq.con". theorem SKK: \forall A:Set. @@ -93,6 +98,282 @@ theorem bool3: intros.auto paramodulation. qed. +theorem bool4: + \forall A:Set. + \forall one:A. + \forall zero:A. + \forall add: A \to A \to A. + \forall mult: A \to A \to A. + \forall inv: A \to A. + \forall c1:(\forall x,y:A.(add x y) = (add y x)). + \forall c2:(\forall x,y:A.(mult x y) = (mult y x)). + \forall d1: (\forall x,y,z:A. + (add x (mult y z)) = (mult (add x y) (add x z))). + \forall d2: (\forall x,y,z:A. + (mult x (add y z)) = (add (mult x y) (mult x z))). + \forall i1: (\forall x:A. (add x zero) = x). + \forall i2: (\forall x:A. (mult x one) = x). + \forall inv1: (\forall x:A. (add x (inv x)) = one). + \forall inv2: (\forall x:A. (mult x (inv x)) = zero). + \forall x,y,z:A. + (add x y) = (add (add x (mult y z)) y). +intros. +exact ( + ((eq_ind A (add y (add x (mult y z))) + (\lambda x_DemodGoal_193:A.(eq A (add x y) x_DemodGoal_193)) + (eq_ind A x + (\lambda x_DemodGoal_893:A.(eq A x_DemodGoal_893 (add y (add x (mult y z))))) + (eq_ind A y (\lambda x_DemodGoal_894:A.(eq A x x_DemodGoal_894)) + (eq_ind A (add y zero) (\lambda x_Demod_554:A.(eq A x x_Demod_554)) + (eq_ind_r A (add zero x) (\lambda x_SupR_809:A.(eq A x_SupR_809 (add y zero))) + (eq_ind_r A (add y (mult (add zero y) zero)) + (\lambda x_Demod_553:A.(eq A (add zero x) x_Demod_553)) + (eq_ind A (add (add zero x) zero) + (\lambda x_Demod_540:A.(eq A x_Demod_540 (add x (mult (add zero x) zero)))) + (eq_ind_r A (mult zero x)) + (\lambda x_Demod_526:A.(eq A (add (add zero x) x_Demod_526) (add x (mult (add zero x) zero)))) + (eq_ind_r A (mult (add zero x) (add (add zero x) x)) + (\lambda x_SupR_606:A.(eq A (add (add zero x) (mult zero x)) x_SupR_606)) + (eq_ind A (add (add zero x) zero) + (\lambda x_SupR_296:A.(eq A (add (add zero x) (mult zero x)) (mult x_SupR_296 (add (add zero x) x)))) + (H2 (add zero x) zero x) (add zero x) (H4 (add zero x))) (add x (mult (add zero x) zero)) + (eq_ind A (add x zero) + (\lambda x_SupR_357:A.(eq A (add x (mult (add zero x) zero)) (mult x_SupR_357 (add (add zero x) x)))) + (eq_ind A (mult (add (add zero x) x) (add x zero)) + (\lambda x_SupR_310:A.(eq A (add x (mult (add zero x) zero)) x_SupR_310)) + (eq_ind A (add x (add zero x)) + (\lambda x_SupR_302:A.(eq A (add x (mult (add zero x) zero)) (mult x_SupR_302 (add x zero)))) + (H2 x (add zero x) zero) (add (add zero x) x) (H x (add zero x))) (mult (add x zero) (add (add zero x) x)) (H1 (add (add zero x) x) (add x zero))) (add zero x) (H x zero))) zero + (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero x))) + (eq_ind_r A (add x one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero x))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add x x_SupR_785)) (mult zero x))) + (eq_ind A (add (mult zero x) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add x (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add x (inv zero))) (add (mult zero x) x_SupR_337))) + (H3 zero x (inv zero)) zero (H7 zero)) (mult zero x) (H4 (mult zero x))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add x (inv x)) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add x one))) + (eq_ind A (mult (inv x) one) + (\lambda x_SupR_396:A.(eq A (add x x_SupR_396) (add x one))) + (eq_ind_r A (mult one (add x one)) + (\lambda x_Demod_199:A.(eq A (add x (mult (inv x) one)) x_Demod_199)) + (eq_ind A (add x (inv x)) + (\lambda x_SupR_268:A.(eq A (add x (mult (inv x) one)) (mult x_SupR_268 (add x one)))) (H2 x (inv x) one) one (H6 x)) (add x one) + (eq_ind A (mult (add x one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add x one)))) + (H1 (add x one) one) (add x one) (H5 (add x one)))) (inv x) (H5 (inv x))) one (H6 x))) zero (H5 zero))) (add zero x) (H4 (add zero x))) (add y zero) + (eq_ind A (add zero zero) + (\lambda x_Demod_543:A.(eq A (add y x_Demod_543) (add y (mult (add zero y) zero)))) + (eq_ind_r A (mult zero y) + (\lambda x_Demod_524:A.(eq A (add y (add zero x_Demod_524)) (add y (mult (add zero y) zero)))) + (eq_ind_r A (mult zero (add zero y)) + (\lambda x_SupR_628:A.(eq A (add y x_SupR_628) (add y (mult (add zero y) zero)))) + (eq_ind_r A (mult (add y (add zero y)) (add y zero)) + (\lambda x_Demod_195:A.(eq A (add y (mult zero (add zero y))) x_Demod_195)) + (eq_ind_r A (mult (add y zero) (add y (add zero y))) + (\lambda x_SupR_272:A.(eq A x_SupR_272 (mult (add y (add zero y)) (add y zero)))) (H1 (add y zero) (add y (add zero y))) (add y (mult zero (add zero y))) (H2 y zero (add zero y))) (add y (mult (add zero y) zero)) (H2 y (add zero y) zero)) (add zero (mult zero y)) + (eq_ind A (add zero zero) + (\lambda x_SupR_296:A.(eq A (add zero (mult zero y)) (mult x_SupR_296 (add zero y)))) (H2 zero zero y) zero (H4 zero))) zero + (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero y))) + (eq_ind_r A (add y one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero y))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add y x_SupR_785)) (mult zero y))) + (eq_ind A (add (mult zero y) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add y (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add y (inv zero))) (add (mult zero y) x_SupR_337))) (H3 zero y (inv zero)) zero (H7 zero)) (mult zero y) (H4 (mult zero y))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add y (inv y)) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add y one))) + (eq_ind A (mult (inv y) one) + (\lambda x_SupR_396:A.(eq A (add y x_SupR_396) (add y one))) + (eq_ind_r A (mult one (add y one)) + (\lambda x_Demod_199:A.(eq A (add y (mult (inv y) one)) x_Demod_199)) + (eq_ind A (add y (inv y)) + (\lambda x_SupR_268:A.(eq A (add y (mult (inv y) one)) (mult x_SupR_268 (add y one)))) (H2 y (inv y) one) one (H6 y)) (add y one) + (eq_ind A (mult (add y one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add y one)))) (H1 (add y one) one) (add y one) (H5 (add y one)))) (inv y) (H5 (inv y))) one (H6 y))) zero (H5 zero))) zero (H4 zero))) x + (eq_ind A (add x zero) + (\lambda x_SupR_299:A.(eq A x_SupR_299 (add zero x))) (H x zero) x (H4 x))) y (H4 y)) (add y (add x (mult y z))) + (sym_eq\subst[A \Assign A ; x \Assign (add y (add x (mult y z))) ; y \Assign y] + (eq_ind_r A (add zero y) + (\lambda x_SupR_826:A.(eq A (add y (add x (mult y z))) x_SupR_826)) + (eq_ind_r A (add zero (mult (add y zero) y)) + (\lambda x_Demod_553:A.(eq A (add y (add x (mult y z))) x_Demod_553)) + (eq_ind A (add (add y (add x (mult y z))) zero) + (\lambda x_Demod_540:A.(eq A x_Demod_540 (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)))) + (eq_ind_r A (mult zero (add x (mult y z))) + (\lambda x_Demod_526:A.(eq A (add (add y (add x (mult y z))) x_Demod_526) (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)))) + (eq_ind_r A (mult (add y (add x (mult y z))) (add (add y (add x (mult y z))) (add x (mult y z)))) + (\lambda x_SupR_606:A.(eq A (add (add y (add x (mult y z))) (mult zero (add x (mult y z)))) x_SupR_606)) + (eq_ind A (add (add y (add x (mult y z))) zero) + (\lambda x_SupR_296:A.(eq A (add (add y (add x (mult y z))) (mult zero (add x (mult y z)))) (mult x_SupR_296 (add (add y (add x (mult y z))) (add x (mult y z)))))) + (H2 (add y (add x (mult y z))) zero (add x (mult y z))) (add y (add x (mult y z))) (H4 (add y (add x (mult y z))))) (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)) + (eq_ind A (add (add x (mult y z)) y) + (\lambda x_SupR_357:A.(eq A (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)) (mult x_SupR_357 (add (add y (add x (mult y z))) (add x (mult y z)))))) (eq_ind A (mult (add (add y (add x (mult y z))) (add x (mult y z))) (add (add x (mult y z)) y)) + (\lambda x_SupR_310:A.(eq A (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)) x_SupR_310)) (eq_ind A (add (add x (mult y z)) (add y (add x (mult y z)))) + (\lambda x_SupR_302:A.(eq A (add (add x (mult y z)) (mult (add y (add x (mult y z))) y)) (mult x_SupR_302 (add (add x (mult y z)) y)))) (H2 (add x (mult y z)) (add y (add x (mult y z))) y) (add (add y (add x (mult y z))) (add x (mult y z))) (H (add x (mult y z)) (add y (add x (mult y z))))) (mult (add (add x (mult y z)) y) (add (add y (add x (mult y z))) (add x (mult y z)))) (H1 (add (add y (add x (mult y z))) (add x (mult y z))) (add (add x (mult y z)) y))) (add y (add x (mult y z))) (H (add x (mult y z)) y))) zero (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero (add x (mult y z))))) + (eq_ind_r A (add (add x (mult y z)) one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero (add x (mult y z))))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add (add x (mult y z)) x_SupR_785)) (mult zero (add x (mult y z))))) + (eq_ind A (add (mult zero (add x (mult y z))) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add (add x (mult y z)) (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add (add x (mult y z)) (inv zero))) (add (mult zero (add x (mult y z))) x_SupR_337))) (H3 zero (add x (mult y z)) (inv zero)) zero (H7 zero)) (mult zero (add x (mult y z))) (H4 (mult zero (add x (mult y z))))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add (add x (mult y z)) (inv (add x (mult y z)))) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add (add x (mult y z)) one))) + (eq_ind A (mult (inv (add x (mult y z))) one) + (\lambda x_SupR_396:A.(eq A (add (add x (mult y z)) x_SupR_396) (add (add x (mult y z)) one))) + (eq_ind_r A (mult one (add (add x (mult y z)) one)) + (\lambda x_Demod_199:A.(eq A (add (add x (mult y z)) (mult (inv (add x (mult y z))) one)) x_Demod_199)) + (eq_ind A (add (add x (mult y z)) (inv (add x (mult y z)))) + (\lambda x_SupR_268:A.(eq A (add (add x (mult y z)) (mult (inv (add x (mult y z))) one)) (mult x_SupR_268 (add (add x (mult y z)) one)))) (H2 (add x (mult y z)) (inv (add x (mult y z))) one) one (H6 (add x (mult y z)))) (add (add x (mult y z)) one) (eq_ind A (mult (add (add x (mult y z)) one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add (add x (mult y z)) one)))) (H1 (add (add x (mult y z)) one) one) (add (add x (mult y z)) one) (H5 (add (add x (mult y z)) one)))) (inv (add x (mult y z))) (H5 (inv (add x (mult y z))))) one (H6 (add x (mult y z))))) zero (H5 zero))) (add y (add x (mult y z))) (H4 (add y (add x (mult y z))))) (add zero y) + (eq_ind A (add y zero) + (\lambda x_Demod_543:A.(eq A (add zero x_Demod_543) (add zero (mult (add y zero) y)))) + (eq_ind_r A (mult zero zero) + (\lambda x_Demod_524:A.(eq A (add zero (add y x_Demod_524)) (add zero (mult (add y zero) y)))) + (eq_ind_r A (mult y (add y zero)) + (\lambda x_SupR_628:A.(eq A (add zero x_SupR_628) (add zero (mult (add y zero) y)))) + (eq_ind_r A (mult (add zero (add y zero)) (add zero y)) + (\lambda x_Demod_195:A.(eq A (add zero (mult y (add y zero))) x_Demod_195)) + (eq_ind_r A (mult (add zero y) (add zero (add y zero))) + (\lambda x_SupR_272:A.(eq A x_SupR_272 (mult (add zero (add y zero)) (add zero y)))) (H1 (add zero y) (add zero (add y zero))) (add zero (mult y (add y zero))) (H2 zero y (add y zero))) (add zero (mult (add y zero) y)) (H2 zero (add y zero) y)) (add y (mult zero zero)) + (eq_ind A (add y zero) + (\lambda x_SupR_296:A.(eq A (add y (mult zero zero)) (mult x_SupR_296 (add y zero)))) (H2 y zero zero) y (H4 y))) zero + (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero zero))) + (eq_ind_r A (add zero one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero zero))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add zero x_SupR_785)) (mult zero zero))) + (eq_ind A (add (mult zero zero) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add zero (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add zero (inv zero))) (add (mult zero zero) x_SupR_337))) (H3 zero zero (inv zero)) zero (H7 zero)) (mult zero zero) (H4 (mult zero zero))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add zero (inv zero)) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add zero one))) + (eq_ind A (mult (inv zero) one) (\lambda x_SupR_396:A.(eq A (add zero x_SupR_396) (add zero one))) + (eq_ind_r A (mult one (add zero one)) + (\lambda x_Demod_199:A.(eq A (add zero (mult (inv zero) one)) x_Demod_199)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_268:A.(eq A (add zero (mult (inv zero) one)) (mult x_SupR_268 (add zero one)))) (H2 zero (inv zero) one) one (H6 zero)) (add zero one) + (eq_ind A (mult (add zero one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add zero one)))) (H1 (add zero one) one) (add zero one) (H5 (add zero one)))) (inv zero) (H5 (inv zero))) one (H6 zero))) zero (H5 zero))) y (H4 y))) y + (eq_ind A (add y zero) + (\lambda x_SupR_299:A.(eq A x_SupR_299 (add zero y))) (H y zero) y (H4 y))))) (add x y) + (sym_eq\subst[A \Assign A ; x \Assign (add x y) ; y \Assign x] + (eq_ind_r A (add zero x) + (\lambda x_SupR_826:A.(eq A (add x y) x_SupR_826)) + (eq_ind_r A (add zero (mult (add x zero) x)) + (\lambda x_Demod_553:A.(eq A (add x y) x_Demod_553)) + (eq_ind A (add (add x y) zero) + (\lambda x_Demod_540:A.(eq A x_Demod_540 (add y (mult (add x y) x)))) + (eq_ind_r A (mult zero y) + (\lambda x_Demod_526:A.(eq A (add (add x y) x_Demod_526) (add y (mult (add x y) x)))) + (eq_ind_r A (mult (add x y) (add (add x y) y)) + (\lambda x_SupR_606:A.(eq A (add (add x y) (mult zero y)) x_SupR_606)) + (eq_ind A (add (add x y) zero) + (\lambda x_SupR_296:A.(eq A (add (add x y) (mult zero y)) (mult x_SupR_296 (add (add x y) y)))) (H2 (add x y) zero y) (add x y) (H4 (add x y))) (add y (mult (add x y) x)) + (eq_ind A (add y x) + (\lambda x_SupR_357:A.(eq A (add y (mult (add x y) x)) (mult x_SupR_357 (add (add x y) y)))) + (eq_ind A (mult (add (add x y) y) (add y x)) + (\lambda x_SupR_310:A.(eq A (add y (mult (add x y) x)) x_SupR_310)) + (eq_ind A (add y (add x y)) + (\lambda x_SupR_302:A.(eq A (add y (mult (add x y) x)) (mult x_SupR_302 (add y x)))) (H2 y (add x y) x) (add (add x y) y) (H y (add x y))) (mult (add y x) (add (add x y) y)) (H1 (add (add x y) y) (add y x))) (add x y) (H y x))) zero + (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero y))) + (eq_ind_r A (add y one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero y))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add y x_SupR_785)) (mult zero y))) + (eq_ind A (add (mult zero y) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add y (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add y (inv zero))) (add (mult zero y) x_SupR_337))) (H3 zero y (inv zero)) zero (H7 zero)) (mult zero y) (H4 (mult zero y))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add y (inv y)) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add y one))) + (eq_ind A (mult (inv y) one) + (\lambda x_SupR_396:A.(eq A (add y x_SupR_396) (add y one))) + (eq_ind_r A (mult one (add y one)) + (\lambda x_Demod_199:A.(eq A (add y (mult (inv y) one)) x_Demod_199)) + (eq_ind A (add y (inv y)) + (\lambda x_SupR_268:A.(eq A (add y (mult (inv y) one)) (mult x_SupR_268 (add y one)))) (H2 y (inv y) one) one (H6 y)) (add y one) + (eq_ind A (mult (add y one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add y one)))) (H1 (add y one) one) (add y one) (H5 (add y one)))) (inv y) (H5 (inv y))) one (H6 y))) zero (H5 zero))) (add x y) (H4 (add x y))) (add zero x) + (eq_ind A (add x zero) + (\lambda x_Demod_543:A.(eq A (add zero x_Demod_543) (add zero (mult (add x zero) x)))) + (eq_ind_r A (mult zero zero) + (\lambda x_Demod_524:A.(eq A (add zero (add x x_Demod_524)) (add zero (mult (add x zero) x)))) + (eq_ind_r A (mult x (add x zero)) + (\lambda x_SupR_628:A.(eq A (add zero x_SupR_628) (add zero (mult (add x zero) x)))) + (eq_ind_r A (mult (add zero (add x zero)) (add zero x)) + (\lambda x_Demod_195:A.(eq A (add zero (mult x (add x zero))) x_Demod_195)) + (eq_ind_r A (mult (add zero x) (add zero (add x zero))) + (\lambda x_SupR_272:A.(eq A x_SupR_272 (mult (add zero (add x zero)) (add zero x)))) (H1 (add zero x) (add zero (add x zero))) (add zero (mult x (add x zero))) (H2 zero x (add x zero))) (add zero (mult (add x zero) x)) (H2 zero (add x zero) x)) (add x (mult zero zero)) + (eq_ind A (add x zero) + (\lambda x_SupR_296:A.(eq A (add x (mult zero zero)) (mult x_SupR_296 (add x zero)))) (H2 x zero zero) x (H4 x))) zero + (eq_ind A (mult zero one) + (\lambda x_Demod_507:A.(eq A x_Demod_507 (mult zero zero))) + (eq_ind_r A (add zero one) + (\lambda x_Demod_506:A.(eq A (mult zero x_Demod_506) (mult zero zero))) + (eq_ind_r A (inv zero) + (\lambda x_SupR_785:A.(eq A (mult zero (add zero x_SupR_785)) (mult zero zero))) + (eq_ind A (add (mult zero zero) zero) + (\lambda x_Demod_223:A.(eq A (mult zero (add zero (inv zero))) x_Demod_223)) + (eq_ind A (mult zero (inv zero)) + (\lambda x_SupR_337:A.(eq A (mult zero (add zero (inv zero))) (add (mult zero zero) x_SupR_337))) (H3 zero zero (inv zero)) zero (H7 zero)) (mult zero zero) (H4 (mult zero zero))) one + (eq_ind A (add (inv zero) zero) + (\lambda x_SupR_463:A.(eq A one x_SupR_463)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_298:A.(eq A x_SupR_298 (add (inv zero) zero))) (H zero (inv zero)) one (H6 zero)) (inv zero) (H4 (inv zero)))) one + (eq_ind A (add zero (inv zero)) + (\lambda x_Demod_268:A.(eq A x_Demod_268 (add zero one))) + (eq_ind A (mult (inv zero) one) + (\lambda x_SupR_396:A.(eq A (add zero x_SupR_396) (add zero one))) + (eq_ind_r A (mult one (add zero one)) + (\lambda x_Demod_199:A.(eq A (add zero (mult (inv zero) one)) x_Demod_199)) + (eq_ind A (add zero (inv zero)) + (\lambda x_SupR_268:A.(eq A (add zero (mult (inv zero) one)) (mult x_SupR_268 (add zero one)))) (H2 zero (inv zero) one) one (H6 zero)) (add zero one) + (eq_ind A (mult (add zero one) one) + (\lambda x_SupR_271:A.(eq A x_SupR_271 (mult one (add zero one)))) (H1 (add zero one) one) (add zero one) (H5 (add zero one)))) (inv zero) (H5 (inv zero))) one (H6 zero))) zero (H5 zero))) x (H4 x))) x + (eq_ind A (add x zero) + (\lambda x_SupR_299:A.(eq A x_SupR_299 (add zero x))) (H x zero) x (H4 x))))) (add (add x (mult y z)) y) + (sym_eq\subst[A \Assign A ; x \Assign (add (add x (mult y z)) y) ; y \Assign (add y (add x (mult y z)))] (H (add x (mult y z)) y))) +). qed. + +STOP + +auto paramodulation. + +qed. + theorem bool4: \forall A:Set. \forall one:A. @@ -365,7 +646,6 @@ exact auto paramodulation. qed. - theorem bool5: \forall A:Set. \forall one:A. -- 2.39.2