Beginning of Section Alg
Variable extension_tag : set
Let ctag : setsetλalpha ⇒ SetAdjoin alpha extension_tag
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term ctag.
Definition. We define pair_tag to be λx y ⇒ x{u ''|u ∈ y} of type setsetset.
Variable F : setprop
Hypothesis extension_tag_fresh : ∀x, F x∀ux, extension_tagu
Theorem. (ctagged_notin_F)
∀x y, F x(y '')x
Proof:
Proof not loaded.
Theorem. (ctagged_eqE_Subq)
∀x y, F x∀ux, ∀v, u '' = v ''u v
Proof:
Proof not loaded.
Theorem. (ctagged_eqE_eq)
∀x y, F xF y∀ux, ∀vy, u '' = v ''u = v
Proof:
Proof not loaded.
Theorem. (pair_tag_prop_1_Subq)
∀x1 y1 x2 y2, F x1pair_tag x1 y1 = pair_tag x2 y2x1 x2
Proof:
Proof not loaded.
Theorem. (pair_tag_prop_1)
∀x1 y1 x2 y2, F x1F x2pair_tag x1 y1 = pair_tag x2 y2x1 = x2
Proof:
Proof not loaded.
Theorem. (pair_tag_prop_2_Subq)
∀x1 y1 x2 y2, F y1F x2F y2pair_tag x1 y1 = pair_tag x2 y2y1 y2
Proof:
Proof not loaded.
Theorem. (pair_tag_prop_2)
∀x1 y1 x2 y2, F x1F y1F x2F y2pair_tag x1 y1 = pair_tag x2 y2y1 = y2
Proof:
Proof not loaded.
Theorem. (pair_tag_0)
∀x, pair_tag x 0 = x
Proof:
Proof not loaded.
Definition. We define CD_carr to be λz ⇒ ∃x, F x∃y, F yz = pair_tag x y of type setprop.
Theorem. (CD_carr_I)
∀x y, F xF yCD_carr (pair_tag x y)
Proof:
Proof not loaded.
Theorem. (CD_carr_E)
∀z, CD_carr z∀p : setprop, (∀x y, F xF yz = pair_tag x yp (pair_tag x y))p z
Proof:
Proof not loaded.
Theorem. (CD_carr_0ext)
F 0∀x, F xCD_carr x
Proof:
Proof not loaded.
Definition. We define CD_proj0 to be λz ⇒ Eps_i (λx ⇒ F x∃y, F yz = pair_tag x y) of type setset.
Definition. We define CD_proj1 to be λz ⇒ Eps_i (λy ⇒ F yz = pair_tag (CD_proj0 z) y) of type setset.
Let proj0 ≝ CD_proj0
Let proj1 ≝ CD_proj1
Let pa : setsetsetpair_tag
Theorem. (CD_proj0_1)
∀z, CD_carr zF (proj0 z)∃y, F yz = pa (proj0 z) y
Proof:
Proof not loaded.
Theorem. (CD_proj0_2)
∀x y, F xF yproj0 (pa x y) = x
Proof:
Proof not loaded.
Theorem. (CD_proj1_1)
∀z, CD_carr zF (proj1 z)z = pa (proj0 z) (proj1 z)
Proof:
Proof not loaded.
Theorem. (CD_proj1_2)
∀x y, F xF yproj1 (pa x y) = y
Proof:
Proof not loaded.
Theorem. (CD_proj0R)
∀z, CD_carr zF (proj0 z)
Proof:
Proof not loaded.
Theorem. (CD_proj1R)
∀z, CD_carr zF (proj1 z)
Proof:
Proof not loaded.
Theorem. (CD_proj0proj1_eta)
∀z, CD_carr zz = pa (proj0 z) (proj1 z)
Proof:
Proof not loaded.
Theorem. (CD_proj0proj1_split)
∀z w, CD_carr zCD_carr wproj0 z = proj0 wproj1 z = proj1 wz = w
Proof:
Proof not loaded.
Theorem. (CD_proj0_F)
F 0∀x, F xCD_proj0 x = x
Proof:
Proof not loaded.
Theorem. (CD_proj1_F)
F 0∀x, F xCD_proj1 x = 0
Proof:
Proof not loaded.
Beginning of Section CD_minus_conj
Variable minus : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Definition. We define CD_minus to be λz ⇒ pa (- proj0 z) (- proj1 z) of type setset.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus.
Variable conj : setset
Definition. We define CD_conj to be λz ⇒ pa (conj (proj0 z)) (- proj1 z) of type setset.
End of Section CD_minus_conj
Beginning of Section CD_add
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Definition. We define CD_add to be λz w ⇒ pa (proj0 z + proj0 w) (proj1 z + proj1 w) of type setsetset.
End of Section CD_add
Beginning of Section CD_mul
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Definition. We define CD_mul to be λz w ⇒ pa (proj0 z * proj0 w + - conj (proj1 w) * proj1 z) (proj1 w * proj0 z + proj1 z * conj (proj0 w)) of type setsetset.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul.
Definition. We define CD_exp_nat to be λz m ⇒ nat_primrec 1 (λ_ r ⇒ z r) m of type setsetset.
End of Section CD_mul
Beginning of Section CD_minus_conj_clos
Variable minus : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Hypothesis F_minus : ∀x, F xF (- x)
Theorem. (CD_minus_CD)
∀z, CD_carr zCD_carr (:-: z)
Proof:
Proof not loaded.
Theorem. (CD_minus_proj0)
∀z, CD_carr zproj0 (:-: z) = - proj0 z
Proof:
Proof not loaded.
Theorem. (CD_minus_proj1)
∀z, CD_carr zproj1 (:-: z) = - proj1 z
Proof:
Proof not loaded.
Variable conj : setset
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Hypothesis F_conj : ∀x, F xF (conj x)
Theorem. (CD_conj_CD)
∀z, CD_carr zCD_carr (z ')
Proof:
Proof not loaded.
Theorem. (CD_conj_proj0)
∀z, CD_carr zproj0 (z ') = conj (proj0 z)
Proof:
Proof not loaded.
Theorem. (CD_conj_proj1)
∀z, CD_carr zproj1 (z ') = - proj1 z
Proof:
Proof not loaded.
End of Section CD_minus_conj_clos
Beginning of Section CD_add_clos
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_add : ∀x y, F xF yF (x + y)
Theorem. (CD_add_CD)
∀z w, CD_carr zCD_carr wCD_carr (z + w)
Proof:
Proof not loaded.
Theorem. (CD_add_proj0)
∀z w, CD_carr zCD_carr wproj0 (z + w) = proj0 z + proj0 w
Proof:
Proof not loaded.
Theorem. (CD_add_proj1)
∀z w, CD_carr zCD_carr wproj1 (z + w) = proj1 z + proj1 w
Proof:
Proof not loaded.
End of Section CD_add_clos
Beginning of Section CD_mul_clos
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Theorem. (CD_mul_CD)
∀z w, CD_carr zCD_carr wCD_carr (z w)
Proof:
Proof not loaded.
Theorem. (CD_mul_proj0)
∀z w, CD_carr zCD_carr wproj0 (z w) = proj0 z * proj0 w + - conj (proj1 w) * proj1 z
Proof:
Proof not loaded.
Theorem. (CD_mul_proj1)
∀z w, CD_carr zCD_carr wproj1 (z w) = proj1 w * proj0 z + proj1 z * conj (proj0 w)
Proof:
Proof not loaded.
End of Section CD_mul_clos
Beginning of Section CD_minus_conj_F
Variable minus : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Hypothesis F_0 : F 0
Hypothesis F_minus_0 : - 0 = 0
Theorem. (CD_minus_F_eq)
∀x, F x:-: x = - x
Proof:
Proof not loaded.
Variable conj : setset
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Theorem. (CD_conj_F_eq)
∀x, F xx ' = conj x
Proof:
Proof not loaded.
End of Section CD_minus_conj_F
Beginning of Section CD_add_F
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_0 : F 0
Hypothesis F_add_0_0 : 0 + 0 = 0
Theorem. (CD_add_F_eq)
∀x y, F xF yx + y = x + y
Proof:
Proof not loaded.
End of Section CD_add_F
Beginning of Section CD_mul_F
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_0 : F 0
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_0R : ∀x, F xx * 0 = 0
Theorem. (CD_mul_F_eq)
∀x y, F xF yx y = x * y
Proof:
Proof not loaded.
End of Section CD_mul_F
Beginning of Section CD_minus_invol
Variable minus : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_minus_invol : ∀x, F x- - x = x
Theorem. (CD_minus_invol)
∀z, CD_carr z:-: :-: z = z
Proof:
Proof not loaded.
End of Section CD_minus_invol
Beginning of Section CD_conj_invol
Variable minus : setset
Variable conj : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_minus_invol : ∀x, F x- - x = x
Hypothesis F_conj_invol : ∀x, F xconj (conj x) = x
Theorem. (CD_conj_invol)
∀z, CD_carr zz ' ' = z
Proof:
Proof not loaded.
End of Section CD_conj_invol
Beginning of Section CD_conj_minus
Variable minus : setset
Variable conj : setset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_conj_minus : ∀x, F xconj (- x) = - conj x
Theorem. (CD_conj_minus)
∀z, CD_carr z(:-: z) ' = :-: (z ')
Proof:
Proof not loaded.
End of Section CD_conj_minus
Beginning of Section CD_minus_add
Variable minus : setset
Variable add : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Theorem. (CD_minus_add)
∀z w, CD_carr zCD_carr w:-: (z + w) = :-: z + :-: w
Proof:
Proof not loaded.
End of Section CD_minus_add
Beginning of Section CD_conj_add
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_conj_add : ∀x y, F xF yconj (x + y) = conj x + conj y
Theorem. (CD_conj_add)
∀z w, CD_carr zCD_carr w(z + w) ' = z ' + w '
Proof:
Proof not loaded.
End of Section CD_conj_add
Beginning of Section CD_add_com
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_add_com : ∀x y, F xF yx + y = y + x
Theorem. (CD_add_com)
∀z w, CD_carr zCD_carr wz + w = w + z
Proof:
Proof not loaded.
End of Section CD_add_com
Beginning of Section CD_add_assoc
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_add_assoc : ∀x y z, F xF yF z(x + y) + z = x + (y + z)
Theorem. (CD_add_assoc)
∀z w u, CD_carr zCD_carr wCD_carr u(z + w) + u = z + (w + u)
Proof:
Proof not loaded.
End of Section CD_add_assoc
Beginning of Section CD_add_0R
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_0 : F 0
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Theorem. (CD_add_0R)
∀z, CD_carr zz + 0 = z
Proof:
Proof not loaded.
End of Section CD_add_0R
Beginning of Section CD_add_0L
Variable add : setsetset
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_0 : F 0
Hypothesis F_add_0L : ∀x, F x0 + x = x
Theorem. (CD_add_0L)
∀z, CD_carr z0 + z = z
Proof:
Proof not loaded.
End of Section CD_add_0L
Beginning of Section CD_add_minus_linv
Variable minus : setset
Variable add : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_add_minus_linv : ∀x, F x- x + x = 0
Theorem. (CD_add_minus_linv)
∀z, CD_carr z:-: z + z = 0
Proof:
Proof not loaded.
End of Section CD_add_minus_linv
Beginning of Section CD_add_minus_rinv
Variable minus : setset
Variable add : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_add_minus_rinv : ∀x, F xx + - x = 0
Theorem. (CD_add_minus_rinv)
∀z, CD_carr zz + :-: z = 0
Proof:
Proof not loaded.
End of Section CD_add_minus_rinv
Beginning of Section CD_mul_0R
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_0 : F 0
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_conj_0 : conj 0 = 0
Hypothesis F_add_0_0 : 0 + 0 = 0
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_0R : ∀x, F xx * 0 = 0
Theorem. (CD_mul_0R)
∀z, CD_carr zz 0 = 0
Proof:
Proof not loaded.
End of Section CD_mul_0R
Beginning of Section CD_mul_0L
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_0 : F 0
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_add_0_0 : 0 + 0 = 0
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_0R : ∀x, F xx * 0 = 0
Theorem. (CD_mul_0L)
∀z, CD_carr z0 z = 0
Proof:
Proof not loaded.
End of Section CD_mul_0L
Beginning of Section CD_mul_1R
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_0 : F 0
Hypothesis F_1 : F 1
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_conj_0 : conj 0 = 0
Hypothesis F_conj_1 : conj 1 = 1
Hypothesis F_add_0L : ∀x, F x0 + x = x
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_1R : ∀x, F xx * 1 = x
Theorem. (CD_mul_1R)
∀z, CD_carr zz 1 = z
Proof:
Proof not loaded.
End of Section CD_mul_1R
Beginning of Section CD_mul_1L
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_0 : F 0
Hypothesis F_1 : F 1
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_0R : ∀x, F xx * 0 = 0
Hypothesis F_mul_1L : ∀x, F x1 * x = x
Hypothesis F_mul_1R : ∀x, F xx * 1 = x
Theorem. (CD_mul_1L)
∀z, CD_carr z1 z = z
Proof:
Proof not loaded.
End of Section CD_mul_1L
Beginning of Section CD_conj_mul
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_minus_invol : ∀x, F x- - x = x
Hypothesis F_conj_invol : ∀x, F xconj (conj x) = x
Hypothesis F_conj_minus : ∀x, F xconj (- x) = - conj x
Hypothesis F_conj_add : ∀x y, F xF yconj (x + y) = conj x + conj y
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_add_com : ∀x y, F xF yx + y = y + x
Hypothesis F_conj_mul : ∀x y, F xF yconj (x * y) = conj y * conj x
Hypothesis F_minus_mul_distrR : ∀x y, F xF yx * (- y) = - (x * y)
Hypothesis F_minus_mul_distrL : ∀x y, F xF y(- x) * y = - (x * y)
Theorem. (CD_conj_mul)
∀z w, CD_carr zCD_carr w(z w) ' = w ' z '
Proof:
Proof not loaded.
End of Section CD_conj_mul
Beginning of Section CD_add_mul_distrR
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_add_assoc : ∀x y z, F xF yF z(x + y) + z = x + (y + z)
Hypothesis F_add_com : ∀x y, F xF yx + y = y + x
Hypothesis F_add_mul_distrL : ∀x y z, F xF yF zx * (y + z) = x * y + x * z
Hypothesis F_add_mul_distrR : ∀x y z, F xF yF z(x + y) * z = x * z + y * z
Theorem. (CD_add_mul_distrR)
∀z w u, CD_carr zCD_carr wCD_carr u(z + w) u = z u + w u
Proof:
Proof not loaded.
End of Section CD_add_mul_distrR
Beginning of Section CD_add_mul_distrL
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_conj_add : ∀x y, F xF yconj (x + y) = conj x + conj y
Hypothesis F_add_assoc : ∀x y z, F xF yF z(x + y) + z = x + (y + z)
Hypothesis F_add_com : ∀x y, F xF yx + y = y + x
Hypothesis F_add_mul_distrL : ∀x y z, F xF yF zx * (y + z) = x * y + x * z
Hypothesis F_add_mul_distrR : ∀x y z, F xF yF z(x + y) * z = x * z + y * z
Theorem. (CD_add_mul_distrL)
∀z w u, CD_carr zCD_carr wCD_carr uz (w + u) = z w + z u
Proof:
Proof not loaded.
End of Section CD_add_mul_distrL
Beginning of Section CD_minus_mul_distrR
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_conj_minus : ∀x, F xconj (- x) = - conj x
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_minus_mul_distrR : ∀x y, F xF yx * (- y) = - (x * y)
Hypothesis F_minus_mul_distrL : ∀x y, F xF y(- x) * y = - (x * y)
Theorem. (CD_minus_mul_distrR)
∀z w, CD_carr zCD_carr wz (:-: w) = :-: z w
Proof:
Proof not loaded.
End of Section CD_minus_mul_distrR
Beginning of Section CD_minus_mul_distrL
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_minus_add : ∀x y, F xF y- (x + y) = - x + - y
Hypothesis F_minus_mul_distrR : ∀x y, F xF yx * (- y) = - (x * y)
Hypothesis F_minus_mul_distrL : ∀x y, F xF y(- x) * y = - (x * y)
Theorem. (CD_minus_mul_distrL)
∀z w, CD_carr zCD_carr w(:-: z) w = :-: z w
Proof:
Proof not loaded.
End of Section CD_minus_mul_distrL
Beginning of Section CD_exp_nat
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul.
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term CD_minus minus.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term CD_conj minus conj.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term CD_add add.
Notation. We use as an infix operator with priority 355 and which associates to the right corresponding to applying term CD_mul minus conj add mul.
Notation. We use ^ as an infix operator with priority 342 and no associativity corresponding to applying term CD_exp_nat minus conj add mul.
Theorem. (CD_exp_nat_0)
∀z, z ^ 0 = 1
Proof:
Proof not loaded.
Theorem. (CD_exp_nat_S)
∀z n, nat_p nz ^ (ordsucc n) = z z ^ n
Proof:
Proof not loaded.
Beginning of Section CD_exp_nat_1_2
Hypothesis F_0 : F 0
Hypothesis F_1 : F 1
Hypothesis F_minus_0 : - 0 = 0
Hypothesis F_conj_0 : conj 0 = 0
Hypothesis F_conj_1 : conj 1 = 1
Hypothesis F_add_0L : ∀x, F x0 + x = x
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Hypothesis F_mul_0L : ∀x, F x0 * x = 0
Hypothesis F_mul_1R : ∀x, F xx * 1 = x
Theorem. (CD_exp_nat_1)
∀z, CD_carr zz ^ 1 = z
Proof:
Proof not loaded.
Theorem. (CD_exp_nat_2)
∀z, CD_carr zz ^ 2 = z z
Proof:
Proof not loaded.
End of Section CD_exp_nat_1_2
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_conj : ∀x, F xF (conj x)
Hypothesis F_add : ∀x y, F xF yF (x + y)
Hypothesis F_mul : ∀x y, F xF yF (x * y)
Hypothesis F_0 : F 0
Hypothesis F_1 : F 1
Theorem. (CD_exp_nat_CD)
∀z, CD_carr z∀n, nat_p nCD_carr (z ^ n)
Proof:
Proof not loaded.
End of Section CD_exp_nat
End of Section Alg