Primitive. The name Eps_i is a term of type (setprop)set.
Axiom. (Eps_i_ax) We take the following as an axiom:
∀P : setprop, ∀x : set, P xP (Eps_i P)
Definition. We define True to be ∀p : prop, pp of type prop.
Definition. We define False to be ∀p : prop, p of type prop.
Definition. We define not to be λA : propAFalse of type propprop.
Notation. We use ~ as a prefix operator with priority 700 corresponding to applying term not.
Definition. We define and to be λA B : prop∀p : prop, (ABp)p of type proppropprop.
Notation. We use /\ as an infix operator with priority 780 and which associates to the left corresponding to applying term and.
Definition. We define or to be λA B : prop∀p : prop, (Ap)(Bp)p of type proppropprop.
Notation. We use \/ as an infix operator with priority 785 and which associates to the left corresponding to applying term or.
Definition. We define iff to be λA B : propand (AB) (BA) of type proppropprop.
Notation. We use <-> as an infix operator with priority 805 and no associativity corresponding to applying term iff.
Beginning of Section Eq
Variable A : SType
Definition. We define eq to be λx y : A∀Q : AAprop, Q x yQ y x of type AAprop.
Definition. We define neq to be λx y : A~ eq x y of type AAprop.
End of Section Eq
Notation. We use = as an infix operator with priority 502 and no associativity corresponding to applying term eq.
Notation. We use <> as an infix operator with priority 502 and no associativity corresponding to applying term neq.
Beginning of Section FE
Variable A B : SType
Axiom. (func_ext) We take the following as an axiom:
∀f g : AB, (∀x : A, f x = g x)f = g
End of Section FE
Beginning of Section Ex
Variable A : SType
Definition. We define ex to be λQ : Aprop∀P : prop, (∀x : A, Q xP)P of type (Aprop)prop.
End of Section Ex
Notation. We use exists x...y [possibly with ascriptions] , B as a binder notation corresponding to a term constructed using ex.
Axiom. (prop_ext) We take the following as an axiom:
∀p q : prop, iff p qp = q
Primitive. The name In is a term of type setsetprop.
Notation. We use as an infix operator with priority 500 and no associativity corresponding to applying term In. Furthermore, we may write xA, B to mean x : set, xAB.
Definition. We define Subq to be λA B ⇒ ∀xA, x B of type setsetprop.
Notation. We use as an infix operator with priority 500 and no associativity corresponding to applying term Subq. Furthermore, we may write xA, B to mean x : set, xAB.
Axiom. (set_ext) We take the following as an axiom:
∀X Y : set, X YY XX = Y
Axiom. (In_ind) We take the following as an axiom:
∀P : setprop, (∀X : set, (∀xX, P x)P X)∀X : set, P X
Notation. We use exists x...y [possibly with ascriptions] , B as a binder notation corresponding to a term constructed using ex and handling ∈ or ⊆ ascriptions using and.
Primitive. The name Empty is a term of type set.
Axiom. (EmptyAx) We take the following as an axiom:
~ exists x : set, x Empty
Primitive. The name Union is a term of type setset.
Axiom. (UnionEq) We take the following as an axiom:
∀X x, x Union X <-> exists Y, x Y /\ Y X
Primitive. The name Power is a term of type setset.
Axiom. (PowerEq) We take the following as an axiom:
∀X Y : set, Y Power X <-> Y X
Primitive. The name Repl is a term of type set(setset)set.
Notation. {B| xA} is notation for Repl Ax . B).
Axiom. (ReplEq) We take the following as an axiom:
∀A : set, ∀F : setset, ∀y : set, y {F x|xA} <-> exists xA, y = F x
Definition. We define TransSet to be λU : set∀xU, x U of type setprop.
Definition. We define Union_closed to be λU : set∀X : set, X UUnion X U of type setprop.
Definition. We define Power_closed to be λU : set∀X : set, X UPower X U of type setprop.
Definition. We define Repl_closed to be λU : set∀X : set, X U∀F : setset, (∀x : set, x XF x U){F x|xX} U of type setprop.
Definition. We define ZF_closed to be λU : setUnion_closed U /\ Power_closed U /\ Repl_closed U of type setprop.
Primitive. The name UnivOf is a term of type setset.
Axiom. (UnivOf_In) We take the following as an axiom:
∀N : set, N UnivOf N
Axiom. (UnivOf_TransSet) We take the following as an axiom:
∀N : set, TransSet (UnivOf N)
Axiom. (UnivOf_ZF_closed) We take the following as an axiom:
∀N : set, ZF_closed (UnivOf N)
Axiom. (UnivOf_Min) We take the following as an axiom:
∀N U : set, N UTransSet UZF_closed UUnivOf N U
Axiom. (FalseE) We take the following as an axiom:
False∀p : prop, p
Axiom. (TrueI) We take the following as an axiom:
True
Axiom. (andI) We take the following as an axiom:
∀A B : prop, ABA /\ B
Axiom. (andEL) We take the following as an axiom:
∀A B : prop, A /\ BA
Axiom. (andER) We take the following as an axiom:
∀A B : prop, A /\ BB
Axiom. (orIL) We take the following as an axiom:
∀A B : prop, AA \/ B
Axiom. (orIR) We take the following as an axiom:
∀A B : prop, BA \/ B
Beginning of Section PropN
Variable P1 P2 P3 : prop
Axiom. (and3I) We take the following as an axiom:
P1P2P3P1 /\ P2 /\ P3
Axiom. (and3E) We take the following as an axiom:
P1 /\ P2 /\ P3(∀p : prop, (P1P2P3p)p)
Axiom. (or3I1) We take the following as an axiom:
P1P1 \/ P2 \/ P3
Axiom. (or3I2) We take the following as an axiom:
P2P1 \/ P2 \/ P3
Axiom. (or3I3) We take the following as an axiom:
P3P1 \/ P2 \/ P3
Axiom. (or3E) We take the following as an axiom:
P1 \/ P2 \/ P3(∀p : prop, (P1p)(P2p)(P3p)p)
Variable P4 : prop
Axiom. (and4I) We take the following as an axiom:
P1P2P3P4P1 /\ P2 /\ P3 /\ P4
Variable P5 : prop
Axiom. (and5I) We take the following as an axiom:
P1P2P3P4P5P1 /\ P2 /\ P3 /\ P4 /\ P5
End of Section PropN
Axiom. (not_or_and_demorgan) We take the following as an axiom:
∀A B : prop, ~ (A \/ B)~ A /\ ~ B
Axiom. (not_ex_all_demorgan_i) We take the following as an axiom:
∀P : setprop, (~ exists x, P x)∀x, ~ P x
Axiom. (iffI) We take the following as an axiom:
∀A B : prop, (AB)(BA)(A <-> B)
Axiom. (iffEL) We take the following as an axiom:
∀A B : prop, (A <-> B)AB
Axiom. (iffER) We take the following as an axiom:
∀A B : prop, (A <-> B)BA
Axiom. (iff_refl) We take the following as an axiom:
∀A : prop, A <-> A
Axiom. (iff_sym) We take the following as an axiom:
∀A B : prop, (A <-> B)(B <-> A)
Axiom. (iff_trans) We take the following as an axiom:
∀A B C : prop, (A <-> B)(B <-> C)(A <-> C)
Axiom. (eq_i_tra) We take the following as an axiom:
∀x y z, x = yy = zx = z
Axiom. (f_eq_i) We take the following as an axiom:
∀f : setset, ∀x y, x = yf x = f y
Axiom. (neq_i_sym) We take the following as an axiom:
∀x y, x <> yy <> x
Definition. We define nIn to be λx X ⇒ ~ In x X of type setsetprop.
Notation. We use /:e as an infix operator with priority 502 and no associativity corresponding to applying term nIn.
Axiom. (Eps_i_ex) We take the following as an axiom:
∀P : setprop, (exists x, P x)P (Eps_i P)
Axiom. (pred_ext) We take the following as an axiom:
∀P Q : setprop, (∀x, P x <-> Q x)P = Q
Axiom. (prop_ext_2) We take the following as an axiom:
∀p q : prop, (pq)(qp)p = q
Axiom. (Subq_ref) We take the following as an axiom:
∀X : set, X X
Axiom. (Subq_tra) We take the following as an axiom:
∀X Y Z : set, X YY ZX Z
Axiom. (Subq_contra) We take the following as an axiom:
∀X Y z : set, X Yz /:e Yz /:e X
Axiom. (EmptyE) We take the following as an axiom:
∀x : set, x /:e Empty
Axiom. (Subq_Empty) We take the following as an axiom:
∀X : set, Empty X
Axiom. (Empty_Subq_eq) We take the following as an axiom:
∀X : set, X EmptyX = Empty
Axiom. (Empty_eq) We take the following as an axiom:
∀X : set, (∀x, x /:e X)X = Empty
Axiom. (UnionI) We take the following as an axiom:
∀X x Y : set, x YY Xx Union X
Axiom. (UnionE) We take the following as an axiom:
∀X x : set, x Union Xexists Y : set, x Y /\ Y X
Axiom. (UnionE_impred) We take the following as an axiom:
∀X x : set, x Union X∀p : prop, (∀Y : set, x YY Xp)p
Axiom. (PowerI) We take the following as an axiom:
∀X Y : set, Y XY Power X
Axiom. (PowerE) We take the following as an axiom:
∀X Y : set, Y Power XY X
Axiom. (Empty_In_Power) We take the following as an axiom:
∀X : set, Empty Power X
Axiom. (Self_In_Power) We take the following as an axiom:
∀X : set, X Power X
Axiom. (xm) We take the following as an axiom:
∀P : prop, P \/ ~ P
Axiom. (dneg) We take the following as an axiom:
∀P : prop, ~ ~ PP
Axiom. (not_all_ex_demorgan_i) We take the following as an axiom:
∀P : setprop, ~ (∀x, P x)exists x, ~ P x
Axiom. (eq_or_nand) We take the following as an axiom:
or = (λx y : prop~ (~ x /\ ~ y))
Primitive. The name exactly1of2 is a term of type proppropprop.
Axiom. (exactly1of2_I1) We take the following as an axiom:
∀A B : prop, A~ Bexactly1of2 A B
Axiom. (exactly1of2_I2) We take the following as an axiom:
∀A B : prop, ~ ABexactly1of2 A B
Axiom. (exactly1of2_E) We take the following as an axiom:
∀A B : prop, exactly1of2 A B∀p : prop, (A~ Bp)(~ ABp)p
Axiom. (exactly1of2_or) We take the following as an axiom:
∀A B : prop, exactly1of2 A BA \/ B
Axiom. (ReplI) We take the following as an axiom:
∀A : set, ∀F : setset, ∀x : set, x AF x {F x|xA}
Axiom. (ReplE) We take the following as an axiom:
∀A : set, ∀F : setset, ∀y : set, y {F x|xA}exists xA, y = F x
Axiom. (ReplE_impred) We take the following as an axiom:
∀A : set, ∀F : setset, ∀y : set, y {F x|xA}∀p : prop, (∀x : set, x Ay = F xp)p
Axiom. (ReplE') We take the following as an axiom:
∀X, ∀f : setset, ∀p : setprop, (∀xX, p (f x))∀y{f x|xX}, p y
Axiom. (Repl_Empty) We take the following as an axiom:
∀F : setset, {F x|xEmpty} = Empty
Axiom. (ReplEq_ext_sub) We take the following as an axiom:
∀X, ∀F G : setset, (∀xX, F x = G x){F x|xX} {G x|xX}
Axiom. (ReplEq_ext) We take the following as an axiom:
∀X, ∀F G : setset, (∀xX, F x = G x){F x|xX} = {G x|xX}
Axiom. (Repl_inv_eq) We take the following as an axiom:
∀P : setprop, ∀f g : setset, (∀x, P xg (f x) = x)∀X, (∀xX, P x){g y|y{f x|xX}} = X
Axiom. (Repl_invol_eq) We take the following as an axiom:
∀P : setprop, ∀f : setset, (∀x, P xf (f x) = x)∀X, (∀xX, P x){f y|y{f x|xX}} = X
Primitive. The name If_i is a term of type propsetsetset.
Notation. if cond then T else E is notation corresponding to If_i type cond T E where type is the inferred type of T.
Axiom. (If_i_correct) We take the following as an axiom:
∀p : prop, ∀x y : set, p /\ (if p then x else y) = x \/ ~ p /\ (if p then x else y) = y
Axiom. (If_i_0) We take the following as an axiom:
∀p : prop, ∀x y : set, ~ p(if p then x else y) = y
Axiom. (If_i_1) We take the following as an axiom:
∀p : prop, ∀x y : set, p(if p then x else y) = x
Axiom. (If_i_or) We take the following as an axiom:
∀p : prop, ∀x y : set, (if p then x else y) = x \/ (if p then x else y) = y
Primitive. The name UPair is a term of type setsetset.
Notation. {x,y} is notation for UPair x y.
Axiom. (UPairE) We take the following as an axiom:
∀x y z : set, x {y,z}x = y \/ x = z
Axiom. (UPairI1) We take the following as an axiom:
∀y z : set, y {y,z}
Axiom. (UPairI2) We take the following as an axiom:
∀y z : set, z {y,z}
Primitive. The name Sing is a term of type setset.
Notation. {x} is notation for Sing x.
Axiom. (SingI) We take the following as an axiom:
∀x : set, x {x}
Axiom. (SingE) We take the following as an axiom:
∀x y : set, y {x}y = x
Axiom. (Sing_inj) We take the following as an axiom:
∀x y, {x} = {y}x = y
Primitive. The name binunion is a term of type setsetset.
Notation. We use :\/: as an infix operator with priority 345 and which associates to the left corresponding to applying term binunion.
Axiom. (binunionI1) We take the following as an axiom:
∀X Y z : set, z Xz X :\/: Y
Axiom. (binunionI2) We take the following as an axiom:
∀X Y z : set, z Yz X :\/: Y
Axiom. (binunionE) We take the following as an axiom:
∀X Y z : set, z X :\/: Yz X \/ z Y
Axiom. (binunionE') We take the following as an axiom:
∀X Y z, ∀p : prop, (z Xp)(z Yp)(z X :\/: Yp)
Axiom. (binunion_asso) We take the following as an axiom:
∀X Y Z : set, X :\/: (Y :\/: Z) = (X :\/: Y) :\/: Z
Axiom. (binunion_com_Subq) We take the following as an axiom:
∀X Y : set, X :\/: Y Y :\/: X
Axiom. (binunion_com) We take the following as an axiom:
∀X Y : set, X :\/: Y = Y :\/: X
Axiom. (binunion_idl) We take the following as an axiom:
∀X : set, Empty :\/: X = X
Axiom. (binunion_idr) We take the following as an axiom:
∀X : set, X :\/: Empty = X
Axiom. (binunion_Subq_1) We take the following as an axiom:
∀X Y : set, X X :\/: Y
Axiom. (binunion_Subq_2) We take the following as an axiom:
∀X Y : set, Y X :\/: Y
Axiom. (binunion_Subq_min) We take the following as an axiom:
∀X Y Z : set, X ZY ZX :\/: Y Z
Axiom. (Subq_binunion_eq) We take the following as an axiom:
∀X Y, (X Y) = (X :\/: Y = Y)
Definition. We define SetAdjoin to be λX y ⇒ X :\/: {y} of type setsetset.
Notation. We now use the set enumeration notation {...,...,...} in general. If 0 elements are given, then Empty is used to form the corresponding term. If 1 element is given, then Sing is used to form the corresponding term. If 2 elements are given, then UPair is used to form the corresponding term. If more than elements are given, then SetAdjoin is used to reduce to the case with one fewer elements.
Primitive. The name famunion is a term of type set(setset)set.
Notation. We use \/_ x [possibly with ascriptions] , B as a binder notation corresponding to a term constructed using famunion.
Axiom. (famunionI) We take the following as an axiom:
∀X : set, ∀F : (setset), ∀x y : set, x Xy F xy \/_ xX, F x
Axiom. (famunionE) We take the following as an axiom:
∀X : set, ∀F : (setset), ∀y : set, y (\/_ xX, F x)exists xX, y F x
Axiom. (famunionE_impred) We take the following as an axiom:
∀X : set, ∀F : (setset), ∀y : set, y (\/_ xX, F x)∀p : prop, (∀x, x Xy F xp)p
Axiom. (famunion_Empty) We take the following as an axiom:
∀F : setset, (\/_ xEmpty, F x) = Empty
Axiom. (famunion_Subq) We take the following as an axiom:
∀X, ∀f g : setset, (∀xX, f x g x)famunion X f famunion X g
Axiom. (famunion_ext) We take the following as an axiom:
∀X, ∀f g : setset, (∀xX, f x = g x)famunion X f = famunion X g
Beginning of Section SepSec
Variable X : set
Variable P : setprop
Let z : setEps_i (λz ⇒ z X /\ P z)
Let F : setsetλx ⇒ if P x then x else z
Primitive. The name Sep is a term of type set.
End of Section SepSec
Notation. {xA | B} is notation for Sep Ax . B).
Axiom. (SepI) We take the following as an axiom:
∀X : set, ∀P : (setprop), ∀x : set, x XP xx {xX|P x}
Axiom. (SepE) We take the following as an axiom:
∀X : set, ∀P : (setprop), ∀x : set, x {xX|P x}x X /\ P x
Axiom. (SepE1) We take the following as an axiom:
∀X : set, ∀P : (setprop), ∀x : set, x {xX|P x}x X
Axiom. (SepE2) We take the following as an axiom:
∀X : set, ∀P : (setprop), ∀x : set, x {xX|P x}P x
Axiom. (Sep_Empty) We take the following as an axiom:
∀P : setprop, {xEmpty|P x} = Empty
Axiom. (Sep_Subq) We take the following as an axiom:
∀X : set, ∀P : setprop, {xX|P x} X
Axiom. (Sep_In_Power) We take the following as an axiom:
∀X : set, ∀P : setprop, {xX|P x} Power X
Primitive. The name ReplSep is a term of type set(setprop)(setset)set.
Notation. {B| xA, C} is notation for ReplSep Ax . C) (λ x . B).
Axiom. (ReplSepI) We take the following as an axiom:
∀X : set, ∀P : setprop, ∀F : setset, ∀x : set, x XP xF x {F x|xX, P x}
Axiom. (ReplSepE) We take the following as an axiom:
∀X : set, ∀P : setprop, ∀F : setset, ∀y : set, y {F x|xX, P x}exists x : set, x X /\ P x /\ y = F x
Axiom. (ReplSepE_impred) We take the following as an axiom:
∀X : set, ∀P : setprop, ∀F : setset, ∀y : set, y {F x|xX, P x}∀p : prop, (∀xX, P xy = F xp)p
Primitive. The name binintersect is a term of type setsetset.
Notation. We use :/\: as an infix operator with priority 340 and which associates to the left corresponding to applying term binintersect.
Axiom. (binintersectI) We take the following as an axiom:
∀X Y z, z Xz Yz X :/\: Y
Axiom. (binintersectE) We take the following as an axiom:
∀X Y z, z X :/\: Yz X /\ z Y
Axiom. (binintersectE1) We take the following as an axiom:
∀X Y z, z X :/\: Yz X
Axiom. (binintersectE2) We take the following as an axiom:
∀X Y z, z X :/\: Yz Y
Axiom. (binintersect_Subq_1) We take the following as an axiom:
∀X Y : set, X :/\: Y X
Axiom. (binintersect_Subq_2) We take the following as an axiom:
∀X Y : set, X :/\: Y Y
Axiom. (binintersect_Subq_eq_1) We take the following as an axiom:
∀X Y, X YX :/\: Y = X
Axiom. (binintersect_Subq_max) We take the following as an axiom:
∀X Y Z : set, Z XZ YZ X :/\: Y
Axiom. (binintersect_com_Subq) We take the following as an axiom:
∀X Y : set, X :/\: Y Y :/\: X
Axiom. (binintersect_com) We take the following as an axiom:
∀X Y : set, X :/\: Y = Y :/\: X
Primitive. The name setminus is a term of type setsetset.
Notation. We use :\: as an infix operator with priority 350 and no associativity corresponding to applying term setminus.
Axiom. (setminusI) We take the following as an axiom:
∀X Y z, (z X)(z /:e Y)z X :\: Y
Axiom. (setminusE) We take the following as an axiom:
∀X Y z, (z X :\: Y)z X /\ z /:e Y
Axiom. (setminusE1) We take the following as an axiom:
∀X Y z, (z X :\: Y)z X
Axiom. (setminusE2) We take the following as an axiom:
∀X Y z, (z X :\: Y)z /:e Y
Axiom. (setminus_Subq) We take the following as an axiom:
∀X Y : set, X :\: Y X
Axiom. (setminus_Subq_contra) We take the following as an axiom:
∀X Y Z : set, Z YX :\: Y X :\: Z
Axiom. (setminus_In_Power) We take the following as an axiom:
∀A U, A :\: U Power A
Axiom. (setminus_idr) We take the following as an axiom:
∀X, X :\: Empty = X
Axiom. (In_irref) We take the following as an axiom:
∀x, x /:e x
Axiom. (In_no2cycle) We take the following as an axiom:
∀x y, x yy xFalse
Primitive. The name ordsucc is a term of type setset.
Axiom. (ordsuccI1) We take the following as an axiom:
∀x : set, x ordsucc x
Axiom. (ordsuccI2) We take the following as an axiom:
∀x : set, x ordsucc x
Axiom. (ordsuccE) We take the following as an axiom:
∀x y : set, y ordsucc xy x \/ y = x
Notation. Natural numbers 0,1,2,... are notation for the terms formed using Empty as 0 and forming successors with ordsucc.
Axiom. (neq_0_ordsucc) We take the following as an axiom:
∀a : set, 0 <> ordsucc a
Axiom. (neq_ordsucc_0) We take the following as an axiom:
∀a : set, ordsucc a <> 0
Axiom. (ordsucc_inj) We take the following as an axiom:
∀a b : set, ordsucc a = ordsucc ba = b
Axiom. (ordsucc_inj_contra) We take the following as an axiom:
∀a b : set, a <> bordsucc a <> ordsucc b
Axiom. (In_0_1) We take the following as an axiom:
0 1
Axiom. (In_0_2) We take the following as an axiom:
0 2
Axiom. (In_1_2) We take the following as an axiom:
1 2
Axiom. (In_1_3) We take the following as an axiom:
1 3
Axiom. (In_2_3) We take the following as an axiom:
2 3
Axiom. (In_1_4) We take the following as an axiom:
1 4
Axiom. (In_2_4) We take the following as an axiom:
2 4
Axiom. (In_3_4) We take the following as an axiom:
3 4
Axiom. (In_1_5) We take the following as an axiom:
1 5
Axiom. (In_2_5) We take the following as an axiom:
2 5
Axiom. (In_3_5) We take the following as an axiom:
3 5
Axiom. (In_4_5) We take the following as an axiom:
4 5
Axiom. (In_1_6) We take the following as an axiom:
1 6
Axiom. (In_1_7) We take the following as an axiom:
1 7
Axiom. (In_1_8) We take the following as an axiom:
1 8
Definition. We define nat_p to be λn : set∀p : setprop, p 0(∀x : set, p xp (ordsucc x))p n of type setprop.
Axiom. (nat_0) We take the following as an axiom:
nat_p 0
Axiom. (nat_ordsucc) We take the following as an axiom:
∀n : set, nat_p nnat_p (ordsucc n)
Axiom. (nat_1) We take the following as an axiom:
nat_p 1
Axiom. (nat_2) We take the following as an axiom:
nat_p 2
Axiom. (nat_3) We take the following as an axiom:
nat_p 3
Axiom. (nat_4) We take the following as an axiom:
nat_p 4
Axiom. (nat_5) We take the following as an axiom:
nat_p 5
Axiom. (nat_6) We take the following as an axiom:
nat_p 6
Axiom. (nat_7) We take the following as an axiom:
nat_p 7
Axiom. (nat_8) We take the following as an axiom:
nat_p 8
Axiom. (nat_0_in_ordsucc) We take the following as an axiom:
∀n, nat_p n0 ordsucc n
Axiom. (nat_ordsucc_in_ordsucc) We take the following as an axiom:
∀n, nat_p n∀mn, ordsucc m ordsucc n
Axiom. (nat_ind) We take the following as an axiom:
∀p : setprop, p 0(∀n, nat_p np np (ordsucc n))∀n, nat_p np n
Axiom. (nat_inv_impred) We take the following as an axiom:
∀p : setprop, p 0(∀n, nat_p np (ordsucc n))∀n, nat_p np n
Axiom. (nat_inv) We take the following as an axiom:
∀n, nat_p nn = 0 \/ exists x, nat_p x /\ n = ordsucc x
Axiom. (nat_complete_ind) We take the following as an axiom:
∀p : setprop, (∀n, nat_p n(∀mn, p m)p n)∀n, nat_p np n
Axiom. (nat_p_trans) We take the following as an axiom:
∀n, nat_p n∀mn, nat_p m
Axiom. (nat_trans) We take the following as an axiom:
∀n, nat_p n∀mn, m n
Axiom. (nat_ordsucc_trans) We take the following as an axiom:
∀n, nat_p n∀mordsucc n, m n
Axiom. (Union_ordsucc_eq) We take the following as an axiom:
∀n, nat_p nUnion (ordsucc n) = n
Axiom. (cases_1) We take the following as an axiom:
∀i1, ∀p : setprop, p 0p i
Axiom. (cases_2) We take the following as an axiom:
∀i2, ∀p : setprop, p 0p 1p i
Axiom. (cases_3) We take the following as an axiom:
∀i3, ∀p : setprop, p 0p 1p 2p i
Axiom. (neq_0_1) We take the following as an axiom:
0 <> 1
Axiom. (neq_1_0) We take the following as an axiom:
1 <> 0
Axiom. (neq_0_2) We take the following as an axiom:
0 <> 2
Axiom. (neq_2_0) We take the following as an axiom:
2 <> 0
Axiom. (neq_1_2) We take the following as an axiom:
1 <> 2
Axiom. (neq_1_3) We take the following as an axiom:
1 <> 3
Axiom. (neq_2_3) We take the following as an axiom:
2 <> 3
Axiom. (neq_2_4) We take the following as an axiom:
2 <> 4
Axiom. (neq_3_4) We take the following as an axiom:
3 <> 4
Axiom. (ZF_closed_E) We take the following as an axiom:
∀U, ZF_closed U∀p : prop, (Union_closed UPower_closed URepl_closed Up)p
Axiom. (ZF_Union_closed) We take the following as an axiom:
∀U, ZF_closed U∀XU, Union X U
Axiom. (ZF_Power_closed) We take the following as an axiom:
∀U, ZF_closed U∀XU, Power X U
Axiom. (ZF_Repl_closed) We take the following as an axiom:
∀U, ZF_closed U∀XU, ∀F : setset, (∀xX, F x U){F x|xX} U
Axiom. (ZF_UPair_closed) We take the following as an axiom:
∀U, ZF_closed U∀x yU, {x,y} U
Axiom. (ZF_Sing_closed) We take the following as an axiom:
∀U, ZF_closed U∀xU, {x} U
Axiom. (ZF_binunion_closed) We take the following as an axiom:
∀U, ZF_closed U∀X YU, (X :\/: Y) U
Axiom. (ZF_ordsucc_closed) We take the following as an axiom:
∀U, ZF_closed U∀xU, ordsucc x U
Axiom. (nat_p_UnivOf_Empty) We take the following as an axiom:
∀n : set, nat_p nn UnivOf Empty
Primitive. The name omega is a term of type set.
Axiom. (omega_nat_p) We take the following as an axiom:
∀nomega, nat_p n
Axiom. (nat_p_omega) We take the following as an axiom:
∀n : set, nat_p nn omega
Axiom. (omega_ordsucc) We take the following as an axiom:
∀nomega, ordsucc n omega
Definition. We define ordinal to be λalpha : setTransSet alpha /\ ∀betaalpha, TransSet beta of type setprop.
Axiom. (ordinal_TransSet) We take the following as an axiom:
∀alpha : set, ordinal alphaTransSet alpha
Axiom. (ordinal_Empty) We take the following as an axiom:
ordinal Empty
Axiom. (ordinal_Hered) We take the following as an axiom:
∀alpha : set, ordinal alpha∀betaalpha, ordinal beta
Axiom. (TransSet_ordsucc) We take the following as an axiom:
∀X : set, TransSet XTransSet (ordsucc X)
Axiom. (ordinal_ordsucc) We take the following as an axiom:
∀alpha : set, ordinal alphaordinal (ordsucc alpha)
Axiom. (nat_p_ordinal) We take the following as an axiom:
∀n : set, nat_p nordinal n
Axiom. (ordinal_1) We take the following as an axiom:
ordinal 1
Axiom. (ordinal_2) We take the following as an axiom:
ordinal 2
Axiom. (omega_TransSet) We take the following as an axiom:
TransSet omega
Axiom. (omega_ordinal) We take the following as an axiom:
ordinal omega
Axiom. (ordsucc_omega_ordinal) We take the following as an axiom:
ordinal (ordsucc omega)
Axiom. (TransSet_ordsucc_In_Subq) We take the following as an axiom:
∀X : set, TransSet X∀xX, ordsucc x X
Axiom. (ordinal_ordsucc_In_Subq) We take the following as an axiom:
∀alpha, ordinal alpha∀betaalpha, ordsucc beta alpha
Axiom. (ordinal_trichotomy_or) We take the following as an axiom:
∀alpha beta : set, ordinal alphaordinal betaalpha beta \/ alpha = beta \/ beta alpha
Axiom. (ordinal_trichotomy_or_impred) We take the following as an axiom:
∀alpha beta : set, ordinal alphaordinal beta∀p : prop, (alpha betap)(alpha = betap)(beta alphap)p
Axiom. (ordinal_In_Or_Subq) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha beta \/ beta alpha
Axiom. (ordinal_linear) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha beta \/ beta alpha
Axiom. (ordinal_ordsucc_In_eq) We take the following as an axiom:
∀alpha beta, ordinal alphabeta alphaordsucc beta alpha \/ alpha = ordsucc beta
Axiom. (ordinal_lim_or_succ) We take the following as an axiom:
∀alpha, ordinal alpha(∀betaalpha, ordsucc beta alpha) \/ (exists betaalpha, alpha = ordsucc beta)
Axiom. (ordinal_ordsucc_In) We take the following as an axiom:
∀alpha, ordinal alpha∀betaalpha, ordsucc beta ordsucc alpha
Axiom. (ordinal_famunion) We take the following as an axiom:
∀X, ∀F : setset, (∀xX, ordinal (F x))ordinal (\/_ xX, F x)
Axiom. (ordinal_binintersect) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaordinal (alpha :/\: beta)
Axiom. (ordinal_binunion) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaordinal (alpha :\/: beta)
Axiom. (ordinal_ind) We take the following as an axiom:
∀p : setprop, (∀alpha, ordinal alpha(∀betaalpha, p beta)p alpha)∀alpha, ordinal alphap alpha
Axiom. (least_ordinal_ex) We take the following as an axiom:
∀p : setprop, (exists alpha, ordinal alpha /\ p alpha)exists alpha, ordinal alpha /\ p alpha /\ ∀betaalpha, ~ p beta
Definition. We define inj to be λX Y f ⇒ (∀uX, f u Y) /\ (∀u vX, f u = f vu = v) of type setset(setset)prop.
Definition. We define bij to be λX Y f ⇒ (∀uX, f u Y) /\ (∀u vX, f u = f vu = v) /\ (∀wY, exists uX, f u = w) of type setset(setset)prop.
Axiom. (bijI) We take the following as an axiom:
∀X Y, ∀f : setset, (∀uX, f u Y)(∀u vX, f u = f vu = v)(∀wY, exists uX, f u = w)bij X Y f
Axiom. (bijE) We take the following as an axiom:
∀X Y, ∀f : setset, bij X Y f∀p : prop, ((∀uX, f u Y)(∀u vX, f u = f vu = v)(∀wY, exists uX, f u = w)p)p
Primitive. The name inv is a term of type set(setset)setset.
Axiom. (surj_rinv) We take the following as an axiom:
∀X Y, ∀f : setset, (∀wY, exists uX, f u = w)∀yY, inv X f y X /\ f (inv X f y) = y
Axiom. (inj_linv) We take the following as an axiom:
∀X, ∀f : setset, (∀u vX, f u = f vu = v)∀xX, inv X f (f x) = x
Axiom. (bij_inv) We take the following as an axiom:
∀X Y, ∀f : setset, bij X Y fbij Y X (inv X f)
Axiom. (bij_id) We take the following as an axiom:
∀X, bij X X (λx ⇒ x)
Axiom. (bij_comp) We take the following as an axiom:
∀X Y Z : set, ∀f g : setset, bij X Y fbij Y Z gbij X Z (λx ⇒ g (f x))
Definition. We define equip to be λX Y : setexists f : setset, bij X Y f of type setsetprop.
Axiom. (equip_ref) We take the following as an axiom:
∀X, equip X X
Axiom. (equip_sym) We take the following as an axiom:
∀X Y, equip X Yequip Y X
Axiom. (equip_tra) We take the following as an axiom:
∀X Y Z, equip X Yequip Y Zequip X Z
Axiom. (equip_0_Empty) We take the following as an axiom:
∀X, equip X 0X = 0
Beginning of Section SchroederBernstein
Axiom. (KnasterTarski_set) We take the following as an axiom:
∀A, ∀F : setset, (∀UPower A, F U Power A)(∀U VPower A, U VF U F V)exists YPower A, F Y = Y
Axiom. (image_In_Power) We take the following as an axiom:
∀A B, ∀f : setset, (∀xA, f x B)∀UPower A, {f x|xU} Power B
Axiom. (image_monotone) We take the following as an axiom:
∀f : setset, ∀U V, U V{f x|xU} {f x|xV}
Axiom. (setminus_antimonotone) We take the following as an axiom:
∀A U V, U VA :\: V A :\: U
Axiom. (SchroederBernstein) We take the following as an axiom:
∀A B, ∀f g : setset, inj A B finj B A gequip A B
End of Section SchroederBernstein
Beginning of Section PigeonHole
Axiom. (PigeonHole_nat) We take the following as an axiom:
∀n, nat_p n∀f : setset, (∀iordsucc n, f i n)~ (∀i jordsucc n, f i = f ji = j)
Axiom. (PigeonHole_nat_bij) We take the following as an axiom:
∀n, nat_p n∀f : setset, (∀in, f i n)(∀i jn, f i = f ji = j)bij n n f
End of Section PigeonHole
Definition. We define finite to be λX ⇒ exists nomega, equip X n of type setprop.
Axiom. (finite_ind) We take the following as an axiom:
∀p : setprop, p Empty(∀X y, finite Xy /:e Xp Xp (X :\/: {y}))∀X, finite Xp X
Axiom. (finite_Empty) We take the following as an axiom:
finite 0
Axiom. (adjoin_finite) We take the following as an axiom:
∀X y, finite Xfinite (X :\/: {y})
Axiom. (binunion_finite) We take the following as an axiom:
∀X, finite X∀Y, finite Yfinite (X :\/: Y)
Axiom. (famunion_nat_finite) We take the following as an axiom:
∀X : setset, ∀n, nat_p n(∀in, finite (X i))finite (\/_ in, X i)
Axiom. (Subq_finite) We take the following as an axiom:
∀X, finite X∀Y, Y Xfinite Y
Axiom. (TransSet_In_ordsucc_Subq) We take the following as an axiom:
∀x y, TransSet yx ordsucc yx y
Axiom. (exandE_i) We take the following as an axiom:
∀P Q : setprop, (exists x, P x /\ Q x)∀r : prop, (∀x, P xQ xr)r
Axiom. (exandE_ii) We take the following as an axiom:
∀P Q : (setset)prop, (exists x : setset, P x /\ Q x)∀p : prop, (∀x : setset, P xQ xp)p
Axiom. (exandE_iii) We take the following as an axiom:
∀P Q : (setsetset)prop, (exists x : setsetset, P x /\ Q x)∀p : prop, (∀x : setsetset, P xQ xp)p
Axiom. (exandE_iiii) We take the following as an axiom:
∀P Q : (setsetsetset)prop, (exists x : setsetsetset, P x /\ Q x)∀p : prop, (∀x : setsetsetset, P xQ xp)p
Beginning of Section Descr_ii
Variable P : (setset)prop
Primitive. The name Descr_ii is a term of type setset.
Hypothesis Pex : exists f : setset, P f
Hypothesis Puniq : ∀f g : setset, P fP gf = g
Axiom. (Descr_ii_prop) We take the following as an axiom:
End of Section Descr_ii
Beginning of Section Descr_iii
Variable P : (setsetset)prop
Primitive. The name Descr_iii is a term of type setsetset.
Hypothesis Pex : exists f : setsetset, P f
Hypothesis Puniq : ∀f g : setsetset, P fP gf = g
Axiom. (Descr_iii_prop) We take the following as an axiom:
End of Section Descr_iii
Beginning of Section Descr_Vo1
Variable P : Vo 1prop
Primitive. The name Descr_Vo1 is a term of type Vo 1.
Hypothesis Pex : exists f : Vo 1, P f
Hypothesis Puniq : ∀f g : Vo 1, P fP gf = g
Axiom. (Descr_Vo1_prop) We take the following as an axiom:
End of Section Descr_Vo1
Beginning of Section If_ii
Variable p : prop
Variable f g : setset
Primitive. The name If_ii is a term of type setset.
Axiom. (If_ii_1) We take the following as an axiom:
pIf_ii = f
Axiom. (If_ii_0) We take the following as an axiom:
~ pIf_ii = g
End of Section If_ii
Beginning of Section If_iii
Variable p : prop
Variable f g : setsetset
Primitive. The name If_iii is a term of type setsetset.
Axiom. (If_iii_1) We take the following as an axiom:
pIf_iii = f
Axiom. (If_iii_0) We take the following as an axiom:
~ pIf_iii = g
End of Section If_iii
Beginning of Section EpsilonRec_i
Variable F : set(setset)set
Definition. We define In_rec_i_G to be λX Y ⇒ ∀R : setsetprop, (∀X : set, ∀f : setset, (∀xX, R x (f x))R X (F X f))R X Y of type setsetprop.
Primitive. The name In_rec_i is a term of type setset.
Axiom. (In_rec_i_G_c) We take the following as an axiom:
∀X : set, ∀f : setset, (∀xX, In_rec_i_G x (f x))In_rec_i_G X (F X f)
Axiom. (In_rec_i_G_inv) We take the following as an axiom:
∀X : set, ∀Y : set, In_rec_i_G X Yexists f : setset, (∀xX, In_rec_i_G x (f x)) /\ Y = F X f
Hypothesis Fr : ∀X : set, ∀g h : setset, (∀xX, g x = h x)F X g = F X h
Axiom. (In_rec_i_G_f) We take the following as an axiom:
∀X : set, ∀Y Z : set, In_rec_i_G X YIn_rec_i_G X ZY = Z
Axiom. (In_rec_i_G_In_rec_i) We take the following as an axiom:
∀X : set, In_rec_i_G X (In_rec_i X)
Axiom. (In_rec_i_G_In_rec_i_d) We take the following as an axiom:
∀X : set, In_rec_i_G X (F X In_rec_i)
Axiom. (In_rec_i_eq) We take the following as an axiom:
∀X : set, In_rec_i X = F X In_rec_i
End of Section EpsilonRec_i
Beginning of Section EpsilonRec_ii
Variable F : set(set(setset))(setset)
Definition. We define In_rec_G_ii to be λX Y ⇒ ∀R : set(setset)prop, (∀X : set, ∀f : set(setset), (∀xX, R x (f x))R X (F X f))R X Y of type set(setset)prop.
Primitive. The name In_rec_ii is a term of type set(setset).
Axiom. (In_rec_G_ii_c) We take the following as an axiom:
∀X : set, ∀f : set(setset), (∀xX, In_rec_G_ii x (f x))In_rec_G_ii X (F X f)
Axiom. (In_rec_G_ii_inv) We take the following as an axiom:
∀X : set, ∀Y : (setset), In_rec_G_ii X Yexists f : set(setset), (∀xX, In_rec_G_ii x (f x)) /\ Y = F X f
Hypothesis Fr : ∀X : set, ∀g h : set(setset), (∀xX, g x = h x)F X g = F X h
Axiom. (In_rec_G_ii_f) We take the following as an axiom:
∀X : set, ∀Y Z : (setset), In_rec_G_ii X YIn_rec_G_ii X ZY = Z
Axiom. (In_rec_G_ii_In_rec_ii) We take the following as an axiom:
∀X : set, In_rec_G_ii X (In_rec_ii X)
Axiom. (In_rec_G_ii_In_rec_ii_d) We take the following as an axiom:
∀X : set, In_rec_G_ii X (F X In_rec_ii)
Axiom. (In_rec_ii_eq) We take the following as an axiom:
∀X : set, In_rec_ii X = F X In_rec_ii
End of Section EpsilonRec_ii
Beginning of Section EpsilonRec_iii
Variable F : set(set(setsetset))(setsetset)
Definition. We define In_rec_G_iii to be λX Y ⇒ ∀R : set(setsetset)prop, (∀X : set, ∀f : set(setsetset), (∀xX, R x (f x))R X (F X f))R X Y of type set(setsetset)prop.
Primitive. The name In_rec_iii is a term of type set(setsetset).
Axiom. (In_rec_G_iii_c) We take the following as an axiom:
∀X : set, ∀f : set(setsetset), (∀xX, In_rec_G_iii x (f x))In_rec_G_iii X (F X f)
Axiom. (In_rec_G_iii_inv) We take the following as an axiom:
∀X : set, ∀Y : (setsetset), In_rec_G_iii X Yexists f : set(setsetset), (∀xX, In_rec_G_iii x (f x)) /\ Y = F X f
Hypothesis Fr : ∀X : set, ∀g h : set(setsetset), (∀xX, g x = h x)F X g = F X h
Axiom. (In_rec_G_iii_f) We take the following as an axiom:
∀X : set, ∀Y Z : (setsetset), In_rec_G_iii X YIn_rec_G_iii X ZY = Z
Axiom. (In_rec_G_iii_In_rec_iii) We take the following as an axiom:
∀X : set, In_rec_G_iii X (In_rec_iii X)
Axiom. (In_rec_G_iii_In_rec_iii_d) We take the following as an axiom:
∀X : set, In_rec_G_iii X (F X In_rec_iii)
Axiom. (In_rec_iii_eq) We take the following as an axiom:
∀X : set, In_rec_iii X = F X In_rec_iii
End of Section EpsilonRec_iii
Beginning of Section NatRec
Variable z : set
Variable f : setsetset
Let F : set(setset)setλn g ⇒ if Union n n then f (Union n) (g (Union n)) else z
Definition. We define nat_primrec to be In_rec_i F of type setset.
Axiom. (nat_primrec_r) We take the following as an axiom:
∀X : set, ∀g h : setset, (∀xX, g x = h x)F X g = F X h
Axiom. (nat_primrec_0) We take the following as an axiom:
Axiom. (nat_primrec_S) We take the following as an axiom:
∀n : set, nat_p nnat_primrec (ordsucc n) = f n (nat_primrec n)
End of Section NatRec
Beginning of Section NatArith
Definition. We define add_nat to be λn m : setnat_primrec n (λ_ r ⇒ ordsucc r) m of type setsetset.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_nat.
Axiom. (add_nat_0R) We take the following as an axiom:
∀n : set, n + 0 = n
Axiom. (add_nat_SR) We take the following as an axiom:
∀n m : set, nat_p mn + ordsucc m = ordsucc (n + m)
Axiom. (add_nat_p) We take the following as an axiom:
∀n : set, nat_p n∀m : set, nat_p mnat_p (n + m)
Axiom. (add_nat_1_1_2) We take the following as an axiom:
1 + 1 = 2
Axiom. (add_nat_0L) We take the following as an axiom:
∀m : set, nat_p m0 + m = m
Axiom. (add_nat_SL) We take the following as an axiom:
∀n : set, nat_p n∀m : set, nat_p mordsucc n + m = ordsucc (n + m)
Axiom. (add_nat_com) We take the following as an axiom:
∀n : set, nat_p n∀m : set, nat_p mn + m = m + n
Axiom. (nat_Subq_add_ex) We take the following as an axiom:
∀n, nat_p n∀m, nat_p mn mexists k, nat_p k /\ m = k + n
Definition. We define mul_nat to be λn m : setnat_primrec 0 (λ_ r ⇒ n + r) m of type setsetset.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_nat.
Axiom. (mul_nat_0R) We take the following as an axiom:
∀n : set, n * 0 = 0
Axiom. (mul_nat_SR) We take the following as an axiom:
∀n m : set, nat_p mn * ordsucc m = n + n * m
Axiom. (mul_nat_p) We take the following as an axiom:
∀n : set, nat_p n∀m : set, nat_p mnat_p (n * m)
End of Section NatArith
Definition. We define Inj1 to be In_rec_i (λX f ⇒ {0} :\/: {f x|xX}) of type setset.
Axiom. (Inj1_eq) We take the following as an axiom:
∀X : set, Inj1 X = {0} :\/: {Inj1 x|xX}
Axiom. (Inj1I1) We take the following as an axiom:
∀X : set, 0 Inj1 X
Axiom. (Inj1I2) We take the following as an axiom:
∀X x : set, x XInj1 x Inj1 X
Axiom. (Inj1E) We take the following as an axiom:
∀X y : set, y Inj1 Xy = 0 \/ exists xX, y = Inj1 x
Axiom. (Inj1NE1) We take the following as an axiom:
∀x : set, Inj1 x <> 0
Axiom. (Inj1NE2) We take the following as an axiom:
∀x : set, Inj1 x /:e {0}
Definition. We define Inj0 to be λX ⇒ {Inj1 x|xX} of type setset.
Axiom. (Inj0I) We take the following as an axiom:
∀X x : set, x XInj1 x Inj0 X
Axiom. (Inj0E) We take the following as an axiom:
∀X y : set, y Inj0 Xexists x : set, x X /\ y = Inj1 x
Definition. We define Unj to be In_rec_i (λX f ⇒ {f x|xX :\: {0}}) of type setset.
Axiom. (Unj_eq) We take the following as an axiom:
∀X : set, Unj X = {Unj x|xX :\: {0}}
Axiom. (Unj_Inj1_eq) We take the following as an axiom:
∀X : set, Unj (Inj1 X) = X
Axiom. (Inj1_inj) We take the following as an axiom:
∀X Y : set, Inj1 X = Inj1 YX = Y
Axiom. (Unj_Inj0_eq) We take the following as an axiom:
∀X : set, Unj (Inj0 X) = X
Axiom. (Inj0_inj) We take the following as an axiom:
∀X Y : set, Inj0 X = Inj0 YX = Y
Axiom. (Inj0_0) We take the following as an axiom:
Inj0 0 = 0
Axiom. (Inj0_Inj1_neq) We take the following as an axiom:
∀X Y : set, Inj0 X <> Inj1 Y
Definition. We define setsum to be λX Y ⇒ {Inj0 x|xX} :\/: {Inj1 y|yY} of type setsetset.
Notation. We use :+: as an infix operator with priority 450 and which associates to the left corresponding to applying term setsum.
Axiom. (Inj0_setsum) We take the following as an axiom:
∀X Y x : set, x XInj0 x X :+: Y
Axiom. (Inj1_setsum) We take the following as an axiom:
∀X Y y : set, y YInj1 y X :+: Y
Axiom. (setsum_Inj_inv) We take the following as an axiom:
∀X Y z : set, z X :+: Y(exists xX, z = Inj0 x) \/ (exists yY, z = Inj1 y)
Axiom. (Inj0_setsum_0L) We take the following as an axiom:
∀X : set, 0 :+: X = Inj0 X
Axiom. (Subq_1_Sing0) We take the following as an axiom:
1 {0}
Axiom. (Subq_Sing0_1) We take the following as an axiom:
{0} 1
Axiom. (eq_1_Sing0) We take the following as an axiom:
1 = {0}
Axiom. (Inj1_setsum_1L) We take the following as an axiom:
∀X : set, 1 :+: X = Inj1 X
Axiom. (nat_setsum1_ordsucc) We take the following as an axiom:
∀n : set, nat_p n1 :+: n = ordsucc n
Axiom. (setsum_0_0) We take the following as an axiom:
0 :+: 0 = 0
Axiom. (setsum_1_0_1) We take the following as an axiom:
1 :+: 0 = 1
Axiom. (setsum_1_1_2) We take the following as an axiom:
1 :+: 1 = 2
Beginning of Section pair_setsum
Let pair ≝ setsum
Definition. We define proj0 to be λZ ⇒ {Unj z|zZ, exists x : set, Inj0 x = z} of type setset.
Definition. We define proj1 to be λZ ⇒ {Unj z|zZ, exists y : set, Inj1 y = z} of type setset.
Axiom. (Inj0_pair_0_eq) We take the following as an axiom:
Inj0 = pair 0
Axiom. (Inj1_pair_1_eq) We take the following as an axiom:
Inj1 = pair 1
Axiom. (pairI0) We take the following as an axiom:
∀X Y x, x Xpair 0 x pair X Y
Axiom. (pairI1) We take the following as an axiom:
∀X Y y, y Ypair 1 y pair X Y
Axiom. (pairE) We take the following as an axiom:
∀X Y z, z pair X Y(exists xX, z = pair 0 x) \/ (exists yY, z = pair 1 y)
Axiom. (pairE0) We take the following as an axiom:
∀X Y x, pair 0 x pair X Yx X
Axiom. (pairE1) We take the following as an axiom:
∀X Y y, pair 1 y pair X Yy Y
Axiom. (proj0I) We take the following as an axiom:
∀w u : set, pair 0 u wu proj0 w
Axiom. (proj0E) We take the following as an axiom:
∀w u : set, u proj0 wpair 0 u w
Axiom. (proj1I) We take the following as an axiom:
∀w u : set, pair 1 u wu proj1 w
Axiom. (proj1E) We take the following as an axiom:
∀w u : set, u proj1 wpair 1 u w
Axiom. (proj0_pair_eq) We take the following as an axiom:
∀X Y : set, proj0 (pair X Y) = X
Axiom. (proj1_pair_eq) We take the following as an axiom:
∀X Y : set, proj1 (pair X Y) = Y
Definition. We define Sigma to be λX Y ⇒ \/_ xX, {pair x y|yY x} of type set(setset)set.
Notation. We use Sigma_ x...y [possibly with ascriptions] , B as a binder notation corresponding to a term constructed using Sigma.
Axiom. (pair_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀xX, ∀yY x, pair x y Sigma_ xX, Y x
Axiom. (Sigma_eta_proj0_proj1) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z(Sigma_ xX, Y x), pair (proj0 z) (proj1 z) = z /\ proj0 z X /\ proj1 z Y (proj0 z)
Axiom. (proj_Sigma_eta) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z(Sigma_ xX, Y x), pair (proj0 z) (proj1 z) = z
Axiom. (proj0_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z : set, z (Sigma_ xX, Y x)proj0 z X
Axiom. (proj1_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z : set, z (Sigma_ xX, Y x)proj1 z Y (proj0 z)
Axiom. (pair_Sigma_E1) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀x y : set, pair x y (Sigma_ xX, Y x)y Y x
Axiom. (Sigma_E) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z : set, z (Sigma_ xX, Y x)exists xX, exists yY x, z = pair x y
Definition. We define setprod to be λX Y : setSigma_ xX, Y of type setsetset.
Notation. We use :*: as an infix operator with priority 440 and which associates to the left corresponding to applying term setprod.
Let lam : set(setset)setSigma
Definition. We define ap to be λf x ⇒ {proj1 z|zf, exists y : set, z = pair x y} of type setsetset.
Notation. When x is a set, a term x y is notation for ap x y.
Notation. λ xAB is notation for the set Sigma Ax : set ⇒ B).
Notation. We now use n-tuple notation (a0,...,an-1) for n ≥ 2 for λ i ∈ n . if i = 0 then a0 else ... if i = n-2 then an-2 else an-1.
Axiom. (lamI) We take the following as an axiom:
∀X : set, ∀F : setset, ∀xX, ∀yF x, pair x y λxXF x
Axiom. (lamE) We take the following as an axiom:
∀X : set, ∀F : setset, ∀z : set, z (λxXF x)exists xX, exists yF x, z = pair x y
Axiom. (apI) We take the following as an axiom:
∀f x y, pair x y fy f x
Axiom. (apE) We take the following as an axiom:
∀f x y, y f xpair x y f
Axiom. (beta) We take the following as an axiom:
∀X : set, ∀F : setset, ∀x : set, x X(λxXF x) x = F x
Axiom. (proj0_ap_0) We take the following as an axiom:
∀u, proj0 u = u 0
Axiom. (proj1_ap_1) We take the following as an axiom:
∀u, proj1 u = u 1
Axiom. (pair_ap_0) We take the following as an axiom:
∀x y : set, (pair x y) 0 = x
Axiom. (pair_ap_1) We take the following as an axiom:
∀x y : set, (pair x y) 1 = y
Axiom. (ap0_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z : set, z (Sigma_ xX, Y x)(z 0) X
Axiom. (ap1_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀z : set, z (Sigma_ xX, Y x)(z 1) (Y (z 0))
Definition. We define pair_p to be λu : setpair (u 0) (u 1) = u of type setprop.
Axiom. (pair_p_I) We take the following as an axiom:
∀x y, pair_p (pair x y)
Axiom. (Subq_2_UPair01) We take the following as an axiom:
Axiom. (tuple_pair) We take the following as an axiom:
∀x y : set, pair x y = (x,y)
Definition. We define Pi to be λX Y ⇒ {fPower (Sigma_ xX, Union (Y x))|∀xX, f x Y x} of type set(setset)set.
Notation. We use Pi_ x...y [possibly with ascriptions] , B as a binder notation corresponding to a term constructed using Pi.
Axiom. (PiI) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀f : set, (∀uf, pair_p u /\ u 0 X)(∀xX, f x Y x)f Pi_ xX, Y x
Axiom. (lam_Pi) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀F : setset, (∀xX, F x Y x)(λxXF x) (Pi_ xX, Y x)
Axiom. (ap_Pi) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀f : set, ∀x : set, f (Pi_ xX, Y x)x Xf x Y x
Definition. We define setexp to be λX Y : setPi_ yY, X of type setsetset.
Notation. We use :^: as an infix operator with priority 430 and which associates to the left corresponding to applying term setexp.
Axiom. (pair_tuple_fun) We take the following as an axiom:
pair = (λx y ⇒ (x,y))
Axiom. (lamI2) We take the following as an axiom:
∀X, ∀F : setset, ∀xX, ∀yF x, (x,y) λxXF x
Beginning of Section Tuples
Variable x0 x1 : set
Axiom. (tuple_2_0_eq) We take the following as an axiom:
(x0,x1) 0 = x0
Axiom. (tuple_2_1_eq) We take the following as an axiom:
(x0,x1) 1 = x1
End of Section Tuples
Axiom. (ReplEq_setprod_ext) We take the following as an axiom:
∀X Y, ∀F G : setsetset, (∀xX, ∀yY, F x y = G x y){F (w 0) (w 1)|wX :*: Y} = {G (w 0) (w 1)|wX :*: Y}
Axiom. (tuple_2_Sigma) We take the following as an axiom:
∀X : set, ∀Y : setset, ∀xX, ∀yY x, (x,y) Sigma_ xX, Y x
Axiom. (tuple_2_setprod) We take the following as an axiom:
∀X : set, ∀Y : set, ∀xX, ∀yY, (x,y) X :*: Y
End of Section pair_setsum
Primitive. The name DescrR_i_io_1 is a term of type (set(setprop)prop)set.
Primitive. The name DescrR_i_io_2 is a term of type (set(setprop)prop)setprop.
Axiom. (DescrR_i_io_12) We take the following as an axiom:
∀R : set(setprop)prop, (exists x, (exists y : setprop, R x y) /\ (∀y z : setprop, R x yR x zy = z))R (DescrR_i_io_1 R) (DescrR_i_io_2 R)
Definition. We define PNoEq_ to be λalpha p q ⇒ ∀betaalpha, p beta <-> q beta of type set(setprop)(setprop)prop.
Axiom. (PNoEq_ref_) We take the following as an axiom:
∀alpha, ∀p : setprop, PNoEq_ alpha p p
Axiom. (PNoEq_sym_) We take the following as an axiom:
∀alpha, ∀p q : setprop, PNoEq_ alpha p qPNoEq_ alpha q p
Axiom. (PNoEq_tra_) We take the following as an axiom:
∀alpha, ∀p q r : setprop, PNoEq_ alpha p qPNoEq_ alpha q rPNoEq_ alpha p r
Axiom. (PNoEq_antimon_) We take the following as an axiom:
∀p q : setprop, ∀alpha, ordinal alpha∀betaalpha, PNoEq_ alpha p qPNoEq_ beta p q
Definition. We define PNoLt_ to be λalpha p q ⇒ exists betaalpha, PNoEq_ beta p q /\ ~ p beta /\ q beta of type set(setprop)(setprop)prop.
Axiom. (PNoLt_E_) We take the following as an axiom:
∀alpha, ∀p q : setprop, PNoLt_ alpha p q∀R : prop, (∀beta, beta alphaPNoEq_ beta p q~ p betaq betaR)R
Axiom. (PNoLt_irref_) We take the following as an axiom:
∀alpha, ∀p : setprop, ~ PNoLt_ alpha p p
Axiom. (PNoLt_mon_) We take the following as an axiom:
∀p q : setprop, ∀alpha, ordinal alpha∀betaalpha, PNoLt_ beta p qPNoLt_ alpha p q
Axiom. (PNoLt_trichotomy_or_) We take the following as an axiom:
∀p q : setprop, ∀alpha, ordinal alphaPNoLt_ alpha p q \/ PNoEq_ alpha p q \/ PNoLt_ alpha q p
Axiom. (PNoLt_tra_) We take the following as an axiom:
∀alpha, ordinal alpha∀p q r : setprop, PNoLt_ alpha p qPNoLt_ alpha q rPNoLt_ alpha p r
Primitive. The name PNoLt is a term of type set(setprop)set(setprop)prop.
Axiom. (PNoLtI1) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, PNoLt_ (alpha :/\: beta) p qPNoLt alpha p beta q
Axiom. (PNoLtI2) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, alpha betaPNoEq_ alpha p qq alphaPNoLt alpha p beta q
Axiom. (PNoLtI3) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, beta alphaPNoEq_ beta p q~ p betaPNoLt alpha p beta q
Axiom. (PNoLtE) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, PNoLt alpha p beta q∀R : prop, (PNoLt_ (alpha :/\: beta) p qR)(alpha betaPNoEq_ alpha p qq alphaR)(beta alphaPNoEq_ beta p q~ p betaR)R
Axiom. (PNoLt_irref) We take the following as an axiom:
∀alpha, ∀p : setprop, ~ PNoLt alpha p alpha p
Axiom. (PNoLt_trichotomy_or) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, ordinal alphaordinal betaPNoLt alpha p beta q \/ alpha = beta /\ PNoEq_ alpha p q \/ PNoLt beta q alpha p
Axiom. (PNoLtEq_tra) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal beta∀p q r : setprop, PNoLt alpha p beta qPNoEq_ beta q rPNoLt alpha p beta r
Axiom. (PNoEqLt_tra) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal beta∀p q r : setprop, PNoEq_ alpha p qPNoLt alpha q beta rPNoLt alpha p beta r
Axiom. (PNoLt_tra) We take the following as an axiom:
∀alpha beta gamma, ordinal alphaordinal betaordinal gamma∀p q r : setprop, PNoLt alpha p beta qPNoLt beta q gamma rPNoLt alpha p gamma r
Definition. We define PNoLe to be λalpha p beta q ⇒ PNoLt alpha p beta q \/ alpha = beta /\ PNoEq_ alpha p q of type set(setprop)set(setprop)prop.
Axiom. (PNoLeI1) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, PNoLt alpha p beta qPNoLe alpha p beta q
Axiom. (PNoLeI2) We take the following as an axiom:
∀alpha, ∀p q : setprop, PNoEq_ alpha p qPNoLe alpha p alpha q
Axiom. (PNoLe_ref) We take the following as an axiom:
∀alpha, ∀p : setprop, PNoLe alpha p alpha p
Axiom. (PNoLe_antisym) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal beta∀p q : setprop, PNoLe alpha p beta qPNoLe beta q alpha palpha = beta /\ PNoEq_ alpha p q
Axiom. (PNoLtLe_tra) We take the following as an axiom:
∀alpha beta gamma, ordinal alphaordinal betaordinal gamma∀p q r : setprop, PNoLt alpha p beta qPNoLe beta q gamma rPNoLt alpha p gamma r
Axiom. (PNoLeLt_tra) We take the following as an axiom:
∀alpha beta gamma, ordinal alphaordinal betaordinal gamma∀p q r : setprop, PNoLe alpha p beta qPNoLt beta q gamma rPNoLt alpha p gamma r
Axiom. (PNoEqLe_tra) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal beta∀p q r : setprop, PNoEq_ alpha p qPNoLe alpha q beta rPNoLe alpha p beta r
Axiom. (PNoLe_tra) We take the following as an axiom:
∀alpha beta gamma, ordinal alphaordinal betaordinal gamma∀p q r : setprop, PNoLe alpha p beta qPNoLe beta q gamma rPNoLe alpha p gamma r
Definition. We define PNo_downc to be λL alpha p ⇒ exists beta, ordinal beta /\ exists q : setprop, L beta q /\ PNoLe alpha p beta q of type (set(setprop)prop)set(setprop)prop.
Definition. We define PNo_upc to be λR alpha p ⇒ exists beta, ordinal beta /\ exists q : setprop, R beta q /\ PNoLe beta q alpha p of type (set(setprop)prop)set(setprop)prop.
Axiom. (PNoLe_downc) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha beta, ∀p q : setprop, ordinal alphaordinal betaPNo_downc L alpha pPNoLe beta q alpha pPNo_downc L beta q
Axiom. (PNo_downc_ref) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, L alpha pPNo_downc L alpha p
Axiom. (PNo_upc_ref) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, R alpha pPNo_upc R alpha p
Axiom. (PNoLe_upc) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha beta, ∀p q : setprop, ordinal alphaordinal betaPNo_upc R alpha pPNoLe alpha p beta qPNo_upc R beta q
Definition. We define PNoLt_pwise to be λL R ⇒ ∀gamma, ordinal gamma∀p : setprop, L gamma p∀delta, ordinal delta∀q : setprop, R delta qPNoLt gamma p delta q of type (set(setprop)prop)(set(setprop)prop)prop.
Axiom. (PNoLt_pwise_downc_upc) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L RPNoLt_pwise (PNo_downc L) (PNo_upc R)
Definition. We define PNo_rel_strict_upperbd to be λL alpha p ⇒ ∀betaalpha, ∀q : setprop, PNo_downc L beta qPNoLt beta q alpha p of type (set(setprop)prop)set(setprop)prop.
Definition. We define PNo_rel_strict_lowerbd to be λR alpha p ⇒ ∀betaalpha, ∀q : setprop, PNo_upc R beta qPNoLt alpha p beta q of type (set(setprop)prop)set(setprop)prop.
Definition. We define PNo_rel_strict_imv to be λL R alpha p ⇒ PNo_rel_strict_upperbd L alpha p /\ PNo_rel_strict_lowerbd R alpha p of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Axiom. (PNoEq_rel_strict_upperbd) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_rel_strict_upperbd L alpha pPNo_rel_strict_upperbd L alpha q
Axiom. (PNo_rel_strict_upperbd_antimon) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, ∀betaalpha, PNo_rel_strict_upperbd L alpha pPNo_rel_strict_upperbd L beta p
Axiom. (PNoEq_rel_strict_lowerbd) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_rel_strict_lowerbd R alpha pPNo_rel_strict_lowerbd R alpha q
Axiom. (PNo_rel_strict_lowerbd_antimon) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, ∀betaalpha, PNo_rel_strict_lowerbd R alpha pPNo_rel_strict_lowerbd R beta p
Axiom. (PNoEq_rel_strict_imv) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_rel_strict_imv L R alpha pPNo_rel_strict_imv L R alpha q
Axiom. (PNo_rel_strict_imv_antimon) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, ∀betaalpha, PNo_rel_strict_imv L R alpha pPNo_rel_strict_imv L R beta p
Definition. We define PNo_rel_strict_uniq_imv to be λL R alpha p ⇒ PNo_rel_strict_imv L R alpha p /\ ∀q : setprop, PNo_rel_strict_imv L R alpha qPNoEq_ alpha p q of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Definition. We define PNo_rel_strict_split_imv to be λL R alpha p ⇒ PNo_rel_strict_imv L R (ordsucc alpha) (λdelta ⇒ p delta /\ delta <> alpha) /\ PNo_rel_strict_imv L R (ordsucc alpha) (λdelta ⇒ p delta \/ delta = alpha) of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Axiom. (PNo_extend0_eq) We take the following as an axiom:
∀alpha, ∀p : setprop, PNoEq_ alpha p (λdelta ⇒ p delta /\ delta <> alpha)
Axiom. (PNo_extend1_eq) We take the following as an axiom:
∀alpha, ∀p : setprop, PNoEq_ alpha p (λdelta ⇒ p delta \/ delta = alpha)
Axiom. (PNo_rel_imv_ex) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alpha(exists p : setprop, PNo_rel_strict_uniq_imv L R alpha p) \/ (exists taualpha, exists p : setprop, PNo_rel_strict_split_imv L R tau p)
Definition. We define PNo_lenbdd to be λalpha L ⇒ ∀beta, ∀p : setprop, L beta pbeta alpha of type set(set(setprop)prop)prop.
Axiom. (PNo_lenbdd_strict_imv_extend0) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha R∀p : setprop, PNo_rel_strict_imv L R alpha pPNo_rel_strict_imv L R (ordsucc alpha) (λdelta ⇒ p delta /\ delta <> alpha)
Axiom. (PNo_lenbdd_strict_imv_extend1) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha R∀p : setprop, PNo_rel_strict_imv L R alpha pPNo_rel_strict_imv L R (ordsucc alpha) (λdelta ⇒ p delta \/ delta = alpha)
Axiom. (PNo_lenbdd_strict_imv_split) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha R∀p : setprop, PNo_rel_strict_imv L R alpha pPNo_rel_strict_split_imv L R alpha p
Axiom. (PNo_rel_imv_bdd_ex) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha Rexists betaordsucc alpha, exists p : setprop, PNo_rel_strict_split_imv L R beta p
Definition. We define PNo_strict_upperbd to be λL alpha p ⇒ ∀beta, ordinal beta∀q : setprop, L beta qPNoLt beta q alpha p of type (set(setprop)prop)set(setprop)prop.
Definition. We define PNo_strict_lowerbd to be λR alpha p ⇒ ∀beta, ordinal beta∀q : setprop, R beta qPNoLt alpha p beta q of type (set(setprop)prop)set(setprop)prop.
Definition. We define PNo_strict_imv to be λL R alpha p ⇒ PNo_strict_upperbd L alpha p /\ PNo_strict_lowerbd R alpha p of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Axiom. (PNoEq_strict_upperbd) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_strict_upperbd L alpha pPNo_strict_upperbd L alpha q
Axiom. (PNoEq_strict_lowerbd) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_strict_lowerbd R alpha pPNo_strict_lowerbd R alpha q
Axiom. (PNoEq_strict_imv) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alpha∀p q : setprop, PNoEq_ alpha p qPNo_strict_imv L R alpha pPNo_strict_imv L R alpha q
Axiom. (PNo_strict_upperbd_imp_rel_strict_upperbd) We take the following as an axiom:
∀L : set(setprop)prop, ∀alpha, ordinal alpha∀betaordsucc alpha, ∀p : setprop, PNo_strict_upperbd L alpha pPNo_rel_strict_upperbd L beta p
Axiom. (PNo_strict_lowerbd_imp_rel_strict_lowerbd) We take the following as an axiom:
∀R : set(setprop)prop, ∀alpha, ordinal alpha∀betaordsucc alpha, ∀p : setprop, PNo_strict_lowerbd R alpha pPNo_rel_strict_lowerbd R beta p
Axiom. (PNo_strict_imv_imp_rel_strict_imv) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alpha∀betaordsucc alpha, ∀p : setprop, PNo_strict_imv L R alpha pPNo_rel_strict_imv L R beta p
Axiom. (PNo_rel_split_imv_imp_strict_imv) We take the following as an axiom:
∀L R : set(setprop)prop, ∀alpha, ordinal alpha∀p : setprop, PNo_rel_strict_split_imv L R alpha pPNo_strict_imv L R alpha p
Axiom. (PNo_lenbdd_strict_imv_ex) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha Rexists betaordsucc alpha, exists p : setprop, PNo_strict_imv L R beta p
Definition. We define PNo_least_rep to be λL R beta p ⇒ ordinal beta /\ PNo_strict_imv L R beta p /\ ∀gammabeta, ∀q : setprop, ~ PNo_strict_imv L R gamma q of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Definition. We define PNo_least_rep2 to be λL R beta p ⇒ PNo_least_rep L R beta p /\ ∀x, x /:e beta~ p x of type (set(setprop)prop)(set(setprop)prop)set(setprop)prop.
Axiom. (PNo_strict_imv_pred_eq) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alpha∀p q : setprop, PNo_least_rep L R alpha pPNo_strict_imv L R alpha q∀betaalpha, p beta <-> q beta
Axiom. (PNo_lenbdd_least_rep2_exuniq2) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha Rexists beta, (exists p : setprop, PNo_least_rep2 L R beta p) /\ (∀p q : setprop, PNo_least_rep2 L R beta pPNo_least_rep2 L R beta qp = q)
Primitive. The name PNo_bd is a term of type (set(setprop)prop)(set(setprop)prop)set.
Primitive. The name PNo_pred is a term of type (set(setprop)prop)(set(setprop)prop)setprop.
Axiom. (PNo_bd_pred_lem) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha RPNo_least_rep2 L R (PNo_bd L R) (PNo_pred L R)
Axiom. (PNo_bd_pred) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha RPNo_least_rep L R (PNo_bd L R) (PNo_pred L R)
Axiom. (PNo_bd_In) We take the following as an axiom:
∀L R : set(setprop)prop, PNoLt_pwise L R∀alpha, ordinal alphaPNo_lenbdd alpha LPNo_lenbdd alpha RPNo_bd L R ordsucc alpha
Beginning of Section TaggedSets
Let tag : setsetλalpha ⇒ SetAdjoin alpha {1}
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term tag.
Axiom. (not_TransSet_Sing1) We take the following as an axiom:
Axiom. (not_ordinal_Sing1) We take the following as an axiom:
Axiom. (tagged_not_ordinal) We take the following as an axiom:
∀y, ~ ordinal (y ')
Axiom. (tagged_notin_ordinal) We take the following as an axiom:
∀alpha y, ordinal alpha(y ') /:e alpha
Axiom. (tagged_eqE_Subq) We take the following as an axiom:
∀alpha beta, ordinal alphaalpha ' = beta 'alpha beta
Axiom. (tagged_eqE_eq) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha ' = beta 'alpha = beta
Axiom. (tagged_ReplE) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betabeta ' {gamma '|gammaalpha}beta alpha
Axiom. (ordinal_notin_tagged_Repl) We take the following as an axiom:
∀alpha Y, ordinal alphaalpha /:e {y '|yY}
Definition. We define SNoElts_ to be λalpha ⇒ alpha :\/: {beta '|betaalpha} of type setset.
Axiom. (SNoElts_mon) We take the following as an axiom:
∀alpha beta, alpha betaSNoElts_ alpha SNoElts_ beta
Definition. We define SNo_ to be λalpha x ⇒ x SNoElts_ alpha /\ ∀betaalpha, exactly1of2 (beta ' x) (beta x) of type setsetprop.
Definition. We define PSNo to be λalpha p ⇒ {betaalpha|p beta} :\/: {beta '|betaalpha, ~ p beta} of type set(setprop)set.
Axiom. (PNoEq_PSNo) We take the following as an axiom:
∀alpha, ordinal alpha∀p : setprop, PNoEq_ alpha (λbeta ⇒ beta PSNo alpha p) p
Axiom. (SNo_PSNo) We take the following as an axiom:
∀alpha, ordinal alpha∀p : setprop, SNo_ alpha (PSNo alpha p)
Axiom. (SNo_PSNo_eta_) We take the following as an axiom:
∀alpha x, ordinal alphaSNo_ alpha xx = PSNo alpha (λbeta ⇒ beta x)
Primitive. The name SNo is a term of type setprop.
Axiom. (SNo_SNo) We take the following as an axiom:
∀alpha, ordinal alpha∀z, SNo_ alpha zSNo z
Primitive. The name SNoLev is a term of type setset.
Axiom. (SNoLev_uniq_Subq) We take the following as an axiom:
∀x alpha beta, ordinal alphaordinal betaSNo_ alpha xSNo_ beta xalpha beta
Axiom. (SNoLev_uniq) We take the following as an axiom:
∀x alpha beta, ordinal alphaordinal betaSNo_ alpha xSNo_ beta xalpha = beta
Axiom. (SNoLev_prop) We take the following as an axiom:
∀x, SNo xordinal (SNoLev x) /\ SNo_ (SNoLev x) x
Axiom. (SNoLev_ordinal) We take the following as an axiom:
∀x, SNo xordinal (SNoLev x)
Axiom. (SNoLev_) We take the following as an axiom:
∀x, SNo xSNo_ (SNoLev x) x
Axiom. (SNo_PSNo_eta) We take the following as an axiom:
∀x, SNo xx = PSNo (SNoLev x) (λbeta ⇒ beta x)
Axiom. (SNoLev_PSNo) We take the following as an axiom:
∀alpha, ordinal alpha∀p : setprop, SNoLev (PSNo alpha p) = alpha
Axiom. (SNo_Subq) We take the following as an axiom:
∀x y, SNo xSNo ySNoLev x SNoLev y(∀alphaSNoLev x, alpha x <-> alpha y)x y
Definition. We define SNoEq_ to be λalpha x y ⇒ PNoEq_ alpha (λbeta ⇒ beta x) (λbeta ⇒ beta y) of type setsetsetprop.
Axiom. (SNoEq_I) We take the following as an axiom:
∀alpha x y, (∀betaalpha, beta x <-> beta y)SNoEq_ alpha x y
Axiom. (SNo_eq) We take the following as an axiom:
∀x y, SNo xSNo ySNoLev x = SNoLev ySNoEq_ (SNoLev x) x yx = y
End of Section TaggedSets
Definition. We define SNoLt to be λx y ⇒ PNoLt (SNoLev x) (λbeta ⇒ beta x) (SNoLev y) (λbeta ⇒ beta y) of type setsetprop.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Definition. We define SNoLe to be λx y ⇒ PNoLe (SNoLev x) (λbeta ⇒ beta x) (SNoLev y) (λbeta ⇒ beta y) of type setsetprop.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Axiom. (SNoLtLe) We take the following as an axiom:
∀x y, x < yx <= y
Axiom. (SNoLeE) We take the following as an axiom:
∀x y, SNo xSNo yx <= yx < y \/ x = y
Axiom. (SNoEq_sym_) We take the following as an axiom:
∀alpha x y, SNoEq_ alpha x ySNoEq_ alpha y x
Axiom. (SNoEq_tra_) We take the following as an axiom:
∀alpha x y z, SNoEq_ alpha x ySNoEq_ alpha y zSNoEq_ alpha x z
Axiom. (SNoLtE) We take the following as an axiom:
∀x y, SNo xSNo yx < y∀p : prop, (∀z, SNo zSNoLev z SNoLev x :/\: SNoLev ySNoEq_ (SNoLev z) z xSNoEq_ (SNoLev z) z yx < zz < ySNoLev z /:e xSNoLev z yp)(SNoLev x SNoLev ySNoEq_ (SNoLev x) x ySNoLev x yp)(SNoLev y SNoLev xSNoEq_ (SNoLev y) x ySNoLev y /:e xp)p
Axiom. (SNoLtI2) We take the following as an axiom:
∀x y, SNoLev x SNoLev ySNoEq_ (SNoLev x) x ySNoLev x yx < y
Axiom. (SNoLtI3) We take the following as an axiom:
∀x y, SNoLev y SNoLev xSNoEq_ (SNoLev y) x ySNoLev y /:e xx < y
Axiom. (SNoLt_irref) We take the following as an axiom:
∀x, ~ SNoLt x x
Axiom. (SNoLt_trichotomy_or) We take the following as an axiom:
∀x y, SNo xSNo yx < y \/ x = y \/ y < x
Axiom. (SNoLt_trichotomy_or_impred) We take the following as an axiom:
∀x y, SNo xSNo y∀p : prop, (x < yp)(x = yp)(y < xp)p
Axiom. (SNoLt_tra) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx < yy < zx < z
Axiom. (SNoLe_ref) We take the following as an axiom:
∀x, SNoLe x x
Axiom. (SNoLe_antisym) We take the following as an axiom:
∀x y, SNo xSNo yx <= yy <= xx = y
Axiom. (SNoLtLe_tra) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx < yy <= zx < z
Axiom. (SNoLeLt_tra) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx <= yy < zx < z
Axiom. (SNoLe_tra) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx <= yy <= zx <= z
Axiom. (SNoLtLe_or) We take the following as an axiom:
∀x y, SNo xSNo yx < y \/ y <= x
Axiom. (SNoLt_PSNo_PNoLt) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, ordinal alphaordinal betaPSNo alpha p < PSNo beta qPNoLt alpha p beta q
Axiom. (PNoLt_SNoLt_PSNo) We take the following as an axiom:
∀alpha beta, ∀p q : setprop, ordinal alphaordinal betaPNoLt alpha p beta qPSNo alpha p < PSNo beta q
Definition. We define SNoCut to be λL R ⇒ PSNo (PNo_bd (λalpha p ⇒ ordinal alpha /\ PSNo alpha p L) (λalpha p ⇒ ordinal alpha /\ PSNo alpha p R)) (PNo_pred (λalpha p ⇒ ordinal alpha /\ PSNo alpha p L) (λalpha p ⇒ ordinal alpha /\ PSNo alpha p R)) of type setsetset.
Definition. We define SNoCutP to be λL R ⇒ (∀xL, SNo x) /\ (∀yR, SNo y) /\ (∀xL, ∀yR, x < y) of type setsetprop.
Axiom. (SNoCutP_SNoCut) We take the following as an axiom:
∀L R, SNoCutP L RSNo (SNoCut L R) /\ SNoLev (SNoCut L R) ordsucc ((\/_ xL, ordsucc (SNoLev x)) :\/: (\/_ yR, ordsucc (SNoLev y))) /\ (∀xL, x < SNoCut L R) /\ (∀yR, SNoCut L R < y) /\ (∀z, SNo z(∀xL, x < z)(∀yR, z < y)SNoLev (SNoCut L R) SNoLev z /\ SNoEq_ (SNoLev (SNoCut L R)) (SNoCut L R) z)
Axiom. (SNoCutP_SNoCut_impred) We take the following as an axiom:
∀L R, SNoCutP L R∀p : prop, (SNo (SNoCut L R)SNoLev (SNoCut L R) ordsucc ((\/_ xL, ordsucc (SNoLev x)) :\/: (\/_ yR, ordsucc (SNoLev y)))(∀xL, x < SNoCut L R)(∀yR, SNoCut L R < y)(∀z, SNo z(∀xL, x < z)(∀yR, z < y)SNoLev (SNoCut L R) SNoLev z /\ SNoEq_ (SNoLev (SNoCut L R)) (SNoCut L R) z)p)p
Axiom. (SNoCutP_L_0) We take the following as an axiom:
∀L, (∀xL, SNo x)SNoCutP L 0
Axiom. (SNoCutP_0_R) We take the following as an axiom:
∀R, (∀xR, SNo x)SNoCutP 0 R
Axiom. (SNoCutP_0_0) We take the following as an axiom:
SNoCutP 0 0
Definition. We define SNoS_ to be λalpha ⇒ {xPower (SNoElts_ alpha)|exists betaalpha, SNo_ beta x} of type setset.
Axiom. (SNoS_E) We take the following as an axiom:
∀alpha, ordinal alpha∀xSNoS_ alpha, exists betaalpha, SNo_ beta x
Beginning of Section TaggedSets2
Let tag : setsetλalpha ⇒ SetAdjoin alpha {1}
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term tag.
Axiom. (SNoS_I) We take the following as an axiom:
∀alpha, ordinal alpha∀x, ∀betaalpha, SNo_ beta xx SNoS_ alpha
Axiom. (SNoS_I2) We take the following as an axiom:
∀x y, SNo xSNo ySNoLev x SNoLev yx SNoS_ (SNoLev y)
Axiom. (SNoS_Subq) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha betaSNoS_ alpha SNoS_ beta
Axiom. (SNoLev_uniq2) We take the following as an axiom:
∀alpha, ordinal alpha∀x, SNo_ alpha xSNoLev x = alpha
Axiom. (SNoS_E2) We take the following as an axiom:
∀alpha, ordinal alpha∀xSNoS_ alpha, ∀p : prop, (SNoLev x alphaordinal (SNoLev x)SNo xSNo_ (SNoLev x) xp)p
Axiom. (SNoS_In_neq) We take the following as an axiom:
∀w, SNo w∀xSNoS_ (SNoLev w), x <> w
Axiom. (SNoS_SNoLev) We take the following as an axiom:
∀z, SNo zz SNoS_ (ordsucc (SNoLev z))
Definition. We define SNoL to be λz ⇒ {xSNoS_ (SNoLev z)|x < z} of type setset.
Definition. We define SNoR to be λz ⇒ {ySNoS_ (SNoLev z)|z < y} of type setset.
Axiom. (SNoCutP_SNoL_SNoR) We take the following as an axiom:
∀z, SNo zSNoCutP (SNoL z) (SNoR z)
Axiom. (SNoL_E) We take the following as an axiom:
∀x, SNo x∀wSNoL x, ∀p : prop, (SNo wSNoLev w SNoLev xw < xp)p
Axiom. (SNoR_E) We take the following as an axiom:
∀x, SNo x∀zSNoR x, ∀p : prop, (SNo zSNoLev z SNoLev xx < zp)p
Axiom. (SNoL_SNoS_) We take the following as an axiom:
∀z, SNoL z SNoS_ (SNoLev z)
Axiom. (SNoR_SNoS_) We take the following as an axiom:
∀z, SNoR z SNoS_ (SNoLev z)
Axiom. (SNoL_SNoS) We take the following as an axiom:
∀x, SNo x∀wSNoL x, w SNoS_ (SNoLev x)
Axiom. (SNoR_SNoS) We take the following as an axiom:
∀x, SNo x∀zSNoR x, z SNoS_ (SNoLev x)
Axiom. (SNoL_I) We take the following as an axiom:
∀z, SNo z∀x, SNo xSNoLev x SNoLev zx < zx SNoL z
Axiom. (SNoR_I) We take the following as an axiom:
∀z, SNo z∀y, SNo ySNoLev y SNoLev zz < yy SNoR z
Axiom. (SNo_eta) We take the following as an axiom:
∀z, SNo zz = SNoCut (SNoL z) (SNoR z)
Axiom. (SNoCutP_SNo_SNoCut) We take the following as an axiom:
∀L R, SNoCutP L RSNo (SNoCut L R)
Axiom. (SNoCutP_SNoCut_L) We take the following as an axiom:
∀L R, SNoCutP L R∀xL, x < SNoCut L R
Axiom. (SNoCutP_SNoCut_R) We take the following as an axiom:
∀L R, SNoCutP L R∀yR, SNoCut L R < y
Axiom. (SNoCutP_SNoCut_fst) We take the following as an axiom:
∀L R, SNoCutP L R∀z, SNo z(∀xL, x < z)(∀yR, z < y)SNoLev (SNoCut L R) SNoLev z /\ SNoEq_ (SNoLev (SNoCut L R)) (SNoCut L R) z
Axiom. (SNoCut_Le) We take the following as an axiom:
∀L1 R1 L2 R2, SNoCutP L1 R1SNoCutP L2 R2(∀wL1, w < SNoCut L2 R2)(∀zR2, SNoCut L1 R1 < z)SNoCut L1 R1 <= SNoCut L2 R2
Axiom. (SNoCut_ext) We take the following as an axiom:
∀L1 R1 L2 R2, SNoCutP L1 R1SNoCutP L2 R2(∀wL1, w < SNoCut L2 R2)(∀zR1, SNoCut L2 R2 < z)(∀wL2, w < SNoCut L1 R1)(∀zR2, SNoCut L1 R1 < z)SNoCut L1 R1 = SNoCut L2 R2
Axiom. (SNoLt_SNoL_or_SNoR_impred) We take the following as an axiom:
∀x y, SNo xSNo yx < y∀p : prop, (∀zSNoL y, z SNoR xp)(x SNoL yp)(y SNoR xp)p
Axiom. (SNoL_or_SNoR_impred) We take the following as an axiom:
∀x y, SNo xSNo y∀p : prop, (x = yp)(∀zSNoL y, z SNoR xp)(x SNoL yp)(y SNoR xp)(∀zSNoR y, z SNoL xp)(x SNoR yp)(y SNoL xp)p
Axiom. (SNoL_SNoCutP_ex) We take the following as an axiom:
∀L R, SNoCutP L R∀wSNoL (SNoCut L R), exists w'L, w <= w'
Axiom. (SNoR_SNoCutP_ex) We take the following as an axiom:
∀L R, SNoCutP L R∀zSNoR (SNoCut L R), exists z'R, z' <= z
Axiom. (ordinal_SNo_) We take the following as an axiom:
∀alpha, ordinal alphaSNo_ alpha alpha
Axiom. (ordinal_SNo) We take the following as an axiom:
∀alpha, ordinal alphaSNo alpha
Axiom. (ordinal_SNoLev) We take the following as an axiom:
∀alpha, ordinal alphaSNoLev alpha = alpha
Axiom. (ordinal_SNoLev_max) We take the following as an axiom:
∀alpha, ordinal alpha∀z, SNo zSNoLev z alphaz < alpha
Axiom. (ordinal_SNoL) We take the following as an axiom:
∀alpha, ordinal alphaSNoL alpha = SNoS_ alpha
Axiom. (ordinal_SNoR) We take the following as an axiom:
∀alpha, ordinal alphaSNoR alpha = Empty
Axiom. (nat_p_SNo) We take the following as an axiom:
∀n, nat_p nSNo n
Axiom. (omega_SNo) We take the following as an axiom:
Axiom. (omega_SNoS_omega) We take the following as an axiom:
Axiom. (ordinal_In_SNoLt) We take the following as an axiom:
∀alpha, ordinal alpha∀betaalpha, beta < alpha
Axiom. (ordinal_SNoLev_max_2) We take the following as an axiom:
∀alpha, ordinal alpha∀z, SNo zSNoLev z ordsucc alphaz <= alpha
Axiom. (ordinal_Subq_SNoLe) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha betaalpha <= beta
Axiom. (ordinal_SNoLt_In) We take the following as an axiom:
∀alpha beta, ordinal alphaordinal betaalpha < betaalpha beta
Axiom. (omega_nonneg) We take the following as an axiom:
∀momega, 0 <= m
Axiom. (SNo_0) We take the following as an axiom:
Axiom. (SNo_1) We take the following as an axiom:
Axiom. (SNo_2) We take the following as an axiom:
Axiom. (SNoLev_0) We take the following as an axiom:
Axiom. (SNoCut_0_0) We take the following as an axiom:
Axiom. (SNoL_0) We take the following as an axiom:
Axiom. (SNoR_0) We take the following as an axiom:
Axiom. (SNoL_1) We take the following as an axiom:
Axiom. (SNoR_1) We take the following as an axiom:
Axiom. (SNo_max_SNoLev) We take the following as an axiom:
∀x, SNo x(∀ySNoS_ (SNoLev x), y < x)SNoLev x = x
Axiom. (SNo_max_ordinal) We take the following as an axiom:
∀x, SNo x(∀ySNoS_ (SNoLev x), y < x)ordinal x
Axiom. (pos_low_eq_one) We take the following as an axiom:
∀x, SNo x0 < xSNoLev x 1x = 1
Definition. We define SNo_extend0 to be λx ⇒ PSNo (ordsucc (SNoLev x)) (λdelta ⇒ delta x /\ delta <> SNoLev x) of type setset.
Definition. We define SNo_extend1 to be λx ⇒ PSNo (ordsucc (SNoLev x)) (λdelta ⇒ delta x \/ delta = SNoLev x) of type setset.
Axiom. (SNo_extend0_SNo_) We take the following as an axiom:
∀x, SNo xSNo_ (ordsucc (SNoLev x)) (SNo_extend0 x)
Axiom. (SNo_extend1_SNo_) We take the following as an axiom:
∀x, SNo xSNo_ (ordsucc (SNoLev x)) (SNo_extend1 x)
Axiom. (SNo_extend0_SNo) We take the following as an axiom:
∀x, SNo xSNo (SNo_extend0 x)
Axiom. (SNo_extend1_SNo) We take the following as an axiom:
∀x, SNo xSNo (SNo_extend1 x)
Axiom. (SNo_extend0_SNoLev) We take the following as an axiom:
∀x, SNo xSNoLev (SNo_extend0 x) = ordsucc (SNoLev x)
Axiom. (SNo_extend1_SNoLev) We take the following as an axiom:
∀x, SNo xSNoLev (SNo_extend1 x) = ordsucc (SNoLev x)
Axiom. (SNo_extend0_nIn) We take the following as an axiom:
∀x, SNo xSNoLev x /:e SNo_extend0 x
Axiom. (SNo_extend1_In) We take the following as an axiom:
∀x, SNo xSNoLev x SNo_extend1 x
Axiom. (SNo_extend0_SNoEq) We take the following as an axiom:
∀x, SNo xSNoEq_ (SNoLev x) (SNo_extend0 x) x
Axiom. (SNo_extend1_SNoEq) We take the following as an axiom:
∀x, SNo xSNoEq_ (SNoLev x) (SNo_extend1 x) x
Axiom. (SNoLev_0_eq_0) We take the following as an axiom:
∀x, SNo xSNoLev x = 0x = 0
Axiom. (SNo_0_eq_0) We take the following as an axiom:
∀q, SNo_ 0 qq = 0
Definition. We define eps_ to be λn ⇒ {0} :\/: {(ordsucc m) '|mn} of type setset.
Axiom. (eps_ordinal_In_eq_0) We take the following as an axiom:
∀n alpha, ordinal alphaalpha eps_ nalpha = 0
Axiom. (eps_0_1) We take the following as an axiom:
Axiom. (SNo__eps_) We take the following as an axiom:
Axiom. (SNo_eps_) We take the following as an axiom:
Axiom. (SNo_eps_1) We take the following as an axiom:
Axiom. (SNoLev_eps_) We take the following as an axiom:
Axiom. (SNo_eps_SNoS_omega) We take the following as an axiom:
Axiom. (SNo_eps_decr) We take the following as an axiom:
∀nomega, ∀mn, eps_ n < eps_ m
Axiom. (SNo_eps_pos) We take the following as an axiom:
Axiom. (SNo_pos_eps_Lt) We take the following as an axiom:
∀n, nat_p n∀xSNoS_ (ordsucc n), 0 < xeps_ n < x
Axiom. (SNo_pos_eps_Le) We take the following as an axiom:
∀n, nat_p n∀xSNoS_ (ordsucc (ordsucc n)), 0 < xeps_ n <= x
Axiom. (eps_SNo_eq) We take the following as an axiom:
∀n, nat_p n∀xSNoS_ (ordsucc n), 0 < xSNoEq_ (SNoLev x) (eps_ n) xexists mn, x = eps_ m
Axiom. (eps_SNoCutP) We take the following as an axiom:
Axiom. (eps_SNoCut) We take the following as an axiom:
End of Section TaggedSets2
Axiom. (SNo_etaE) We take the following as an axiom:
∀z, SNo z∀p : prop, (∀L R, SNoCutP L R(∀xL, SNoLev x SNoLev z)(∀yR, SNoLev y SNoLev z)z = SNoCut L Rp)p
Axiom. (SNo_ind) We take the following as an axiom:
∀P : setprop, (∀L R, SNoCutP L R(∀xL, P x)(∀yR, P y)P (SNoCut L R))∀z, SNo zP z
Beginning of Section SurrealRecI
Variable F : set(setset)set
Let default : setEps_i (λ_ ⇒ True)
Let G : set(setsetset)setsetλalpha g ⇒ If_ii (ordinal alpha) (λz : setif z SNoS_ (ordsucc alpha) then F z (λw ⇒ g (SNoLev w) w) else default) (λz : setdefault)
Primitive. The name SNo_rec_i is a term of type setset.
Hypothesis Fr : ∀z, SNo z∀g h : setset, (∀wSNoS_ (SNoLev z), g w = h w)F z g = F z h
Axiom. (SNo_rec_i_eq) We take the following as an axiom:
∀z, SNo zSNo_rec_i z = F z SNo_rec_i
End of Section SurrealRecI
Beginning of Section SurrealRecII
Variable F : set(set(setset))(setset)
Let default : (setset)Descr_ii (λ_ ⇒ True)
Let G : set(setset(setset))set(setset)λalpha g ⇒ If_iii (ordinal alpha) (λz : setIf_ii (z SNoS_ (ordsucc alpha)) (F z (λw ⇒ g (SNoLev w) w)) default) (λz : setdefault)
Primitive. The name SNo_rec_ii is a term of type set(setset).
Hypothesis Fr : ∀z, SNo z∀g h : set(setset), (∀wSNoS_ (SNoLev z), g w = h w)F z g = F z h
Axiom. (SNo_rec_ii_eq) We take the following as an axiom:
∀z, SNo zSNo_rec_ii z = F z SNo_rec_ii
End of Section SurrealRecII
Beginning of Section SurrealRec2
Variable F : setset(setsetset)set
Let G : set(setsetset)set(setset)setλw f z g ⇒ F w z (λx y ⇒ if x = w then g y else f x y)
Let H : set(setsetset)setsetλw f z ⇒ if SNo z then SNo_rec_i (G w f) z else Empty
Primitive. The name SNo_rec2 is a term of type setsetset.
Hypothesis Fr : ∀w, SNo w∀z, SNo z∀g h : setsetset, (∀xSNoS_ (SNoLev w), ∀y, SNo yg x y = h x y)(∀ySNoS_ (SNoLev z), g w y = h w y)F w z g = F w z h
Axiom. (SNo_rec2_G_prop) We take the following as an axiom:
∀w, SNo w∀f k : setsetset, (∀xSNoS_ (SNoLev w), f x = k x)∀z, SNo z∀g h : setset, (∀uSNoS_ (SNoLev z), g u = h u)G w f z g = G w k z h
Axiom. (SNo_rec2_eq_1) We take the following as an axiom:
∀w, SNo w∀f : setsetset, ∀z, SNo zSNo_rec_i (G w f) z = G w f z (SNo_rec_i (G w f))
Axiom. (SNo_rec2_eq) We take the following as an axiom:
∀w, SNo w∀z, SNo zSNo_rec2 w z = F w z SNo_rec2
End of Section SurrealRec2
Axiom. (SNo_ordinal_ind) We take the following as an axiom:
∀P : setprop, (∀alpha, ordinal alpha∀xSNoS_ alpha, P x)(∀x, SNo xP x)
Axiom. (SNo_ordinal_ind2) We take the following as an axiom:
∀P : setsetprop, (∀alpha, ordinal alpha∀beta, ordinal beta∀xSNoS_ alpha, ∀ySNoS_ beta, P x y)(∀x y, SNo xSNo yP x y)
Axiom. (SNo_ordinal_ind3) We take the following as an axiom:
∀P : setsetsetprop, (∀alpha, ordinal alpha∀beta, ordinal beta∀gamma, ordinal gamma∀xSNoS_ alpha, ∀ySNoS_ beta, ∀zSNoS_ gamma, P x y z)(∀x y z, SNo xSNo ySNo zP x y z)
Axiom. (SNoLev_ind) We take the following as an axiom:
∀P : setprop, (∀x, SNo x(∀wSNoS_ (SNoLev x), P w)P x)(∀x, SNo xP x)
Axiom. (SNoLev_ind2) We take the following as an axiom:
∀P : setsetprop, (∀x y, SNo xSNo y(∀wSNoS_ (SNoLev x), P w y)(∀zSNoS_ (SNoLev y), P x z)(∀wSNoS_ (SNoLev x), ∀zSNoS_ (SNoLev y), P w z)P x y)∀x y, SNo xSNo yP x y
Axiom. (SNoLev_ind3) We take the following as an axiom:
∀P : setsetsetprop, (∀x y z, SNo xSNo ySNo z(∀uSNoS_ (SNoLev x), P u y z)(∀vSNoS_ (SNoLev y), P x v z)(∀wSNoS_ (SNoLev z), P x y w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), P u v z)(∀uSNoS_ (SNoLev x), ∀wSNoS_ (SNoLev z), P u y w)(∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), P x v w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), P u v w)P x y z)∀x y z, SNo xSNo ySNo zP x y z
Axiom. (SNo_omega) We take the following as an axiom:
SNo omega
Axiom. (SNoLt_0_1) We take the following as an axiom:
0 < 1
Axiom. (SNoLt_0_2) We take the following as an axiom:
0 < 2
Axiom. (SNoLt_1_2) We take the following as an axiom:
1 < 2
Axiom. (restr_SNo_) We take the following as an axiom:
∀x, SNo x∀alphaSNoLev x, SNo_ alpha (x :/\: SNoElts_ alpha)
Axiom. (restr_SNo) We take the following as an axiom:
∀x, SNo x∀alphaSNoLev x, SNo (x :/\: SNoElts_ alpha)
Axiom. (restr_SNoLev) We take the following as an axiom:
∀x, SNo x∀alphaSNoLev x, SNoLev (x :/\: SNoElts_ alpha) = alpha
Axiom. (restr_SNoEq) We take the following as an axiom:
∀x, SNo x∀alphaSNoLev x, SNoEq_ alpha (x :/\: SNoElts_ alpha) x
Axiom. (SNo_extend0_restr_eq) We take the following as an axiom:
∀x, SNo xx = SNo_extend0 x :/\: SNoElts_ (SNoLev x)
Axiom. (SNo_extend1_restr_eq) We take the following as an axiom:
∀x, SNo xx = SNo_extend1 x :/\: SNoElts_ (SNoLev x)
Beginning of Section SurrealMinus
Primitive. The name minus_SNo is a term of type setset.
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Axiom. (minus_SNo_eq) We take the following as an axiom:
∀x, SNo x- x = SNoCut {- z|zSNoR x} {- w|wSNoL x}
Axiom. (minus_SNo_prop1) We take the following as an axiom:
∀x, SNo xSNo (- x) /\ (∀uSNoL x, - x < - u) /\ (∀uSNoR x, - u < - x) /\ SNoCutP {- z|zSNoR x} {- w|wSNoL x}
Axiom. (SNo_minus_SNo) We take the following as an axiom:
∀x, SNo xSNo (- x)
Axiom. (minus_SNo_Lt_contra) We take the following as an axiom:
∀x y, SNo xSNo yx < y- y < - x
Axiom. (minus_SNo_Le_contra) We take the following as an axiom:
∀x y, SNo xSNo yx <= y- y <= - x
Axiom. (minus_SNo_SNoCutP) We take the following as an axiom:
∀x, SNo xSNoCutP {- z|zSNoR x} {- w|wSNoL x}
Axiom. (minus_SNo_SNoCutP_gen) We take the following as an axiom:
∀L R, SNoCutP L RSNoCutP {- z|zR} {- w|wL}
Axiom. (minus_SNo_Lev_lem1) We take the following as an axiom:
∀alpha, ordinal alpha∀xSNoS_ alpha, SNoLev (- x) SNoLev x
Axiom. (minus_SNo_Lev_lem2) We take the following as an axiom:
∀x, SNo xSNoLev (- x) SNoLev x
Axiom. (minus_SNo_invol) We take the following as an axiom:
∀x, SNo x- - x = x
Axiom. (minus_SNo_Lev) We take the following as an axiom:
∀x, SNo xSNoLev (- x) = SNoLev x
Axiom. (minus_SNo_SNo_) We take the following as an axiom:
∀alpha, ordinal alpha∀x, SNo_ alpha xSNo_ alpha (- x)
Axiom. (minus_SNo_SNoS_) We take the following as an axiom:
∀alpha, ordinal alpha∀x, x SNoS_ alpha- x SNoS_ alpha
Axiom. (minus_SNoCut_eq_lem) We take the following as an axiom:
∀v, SNo v∀L R, SNoCutP L Rv = SNoCut L R- v = SNoCut {- z|zR} {- w|wL}
Axiom. (minus_SNoCut_eq) We take the following as an axiom:
∀L R, SNoCutP L R- SNoCut L R = SNoCut {- z|zR} {- w|wL}
Axiom. (minus_SNo_Lt_contra1) We take the following as an axiom:
∀x y, SNo xSNo y- x < y- y < x
Axiom. (minus_SNo_Lt_contra2) We take the following as an axiom:
∀x y, SNo xSNo yx < - yy < - x
Axiom. (mordinal_SNoLev_min_2) We take the following as an axiom:
∀alpha, ordinal alpha∀z, SNo zSNoLev z ordsucc alpha- alpha <= z
Axiom. (minus_SNo_SNoS_omega) We take the following as an axiom:
Axiom. (SNoL_minus_SNoR) We take the following as an axiom:
∀x, SNo xSNoL (- x) = {- w|wSNoR x}
End of Section SurrealMinus
Beginning of Section SurrealAdd
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Primitive. The name add_SNo is a term of type setsetset.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Axiom. (add_SNo_eq) We take the following as an axiom:
∀x, SNo x∀y, SNo yx + y = SNoCut ({w + y|wSNoL x} :\/: {x + w|wSNoL y}) ({z + y|zSNoR x} :\/: {x + z|zSNoR y})
Axiom. (add_SNo_prop1) We take the following as an axiom:
∀x y, SNo xSNo ySNo (x + y) /\ (∀uSNoL x, u + y < x + y) /\ (∀uSNoR x, x + y < u + y) /\ (∀uSNoL y, x + u < x + y) /\ (∀uSNoR y, x + y < x + u) /\ SNoCutP ({w + y|wSNoL x} :\/: {x + w|wSNoL y}) ({z + y|zSNoR x} :\/: {x + z|zSNoR y})
Axiom. (SNo_add_SNo) We take the following as an axiom:
∀x y, SNo xSNo ySNo (x + y)
Axiom. (SNo_add_SNo_3) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zSNo (x + y + z)
Axiom. (SNo_add_SNo_3c) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zSNo (x + y + - z)
Axiom. (SNo_add_SNo_4) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wSNo (x + y + z + w)
Axiom. (add_SNo_Lt1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx < zx + y < z + y
Axiom. (add_SNo_Le1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx <= zx + y <= z + y
Axiom. (add_SNo_Lt2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zy < zx + y < x + z
Axiom. (add_SNo_Le2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zy <= zx + y <= x + z
Axiom. (add_SNo_Lt3a) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx < zy <= wx + y < z + w
Axiom. (add_SNo_Lt3b) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx <= zy < wx + y < z + w
Axiom. (add_SNo_Lt3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx < zy < wx + y < z + w
Axiom. (add_SNo_Le3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx <= zy <= wx + y <= z + w
Axiom. (add_SNo_SNoCutP) We take the following as an axiom:
∀x y, SNo xSNo ySNoCutP ({w + y|wSNoL x} :\/: {x + w|wSNoL y}) ({z + y|zSNoR x} :\/: {x + z|zSNoR y})
Axiom. (add_SNo_com) We take the following as an axiom:
∀x y, SNo xSNo yx + y = y + x
Axiom. (add_SNo_0L) We take the following as an axiom:
∀x, SNo x0 + x = x
Axiom. (add_SNo_0R) We take the following as an axiom:
∀x, SNo xx + 0 = x
Axiom. (add_SNo_minus_SNo_linv) We take the following as an axiom:
∀x, SNo x- x + x = 0
Axiom. (add_SNo_minus_SNo_rinv) We take the following as an axiom:
∀x, SNo xx + - x = 0
Axiom. (add_SNo_ordinal_SNoCutP) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal betaSNoCutP ({x + beta|xSNoS_ alpha} :\/: {alpha + x|xSNoS_ beta}) Empty
Axiom. (add_SNo_ordinal_eq) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal betaalpha + beta = SNoCut ({x + beta|xSNoS_ alpha} :\/: {alpha + x|xSNoS_ beta}) Empty
Axiom. (add_SNo_ordinal_ordinal) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal betaordinal (alpha + beta)
Axiom. (add_SNo_ordinal_SL) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal betaordsucc alpha + beta = ordsucc (alpha + beta)
Axiom. (add_SNo_ordinal_SR) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal betaalpha + ordsucc beta = ordsucc (alpha + beta)
Axiom. (add_SNo_ordinal_InL) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal beta∀gammaalpha, gamma + beta alpha + beta
Axiom. (add_SNo_ordinal_InR) We take the following as an axiom:
∀alpha, ordinal alpha∀beta, ordinal beta∀gammabeta, alpha + gamma alpha + beta
Axiom. (add_nat_add_SNo) We take the following as an axiom:
∀n momega, add_nat n m = n + m
Axiom. (add_SNo_In_omega) We take the following as an axiom:
∀n momega, n + m omega
Axiom. (add_SNo_1_1_2) We take the following as an axiom:
1 + 1 = 2
Axiom. (add_SNo_SNoL_interpolate) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoL (x + y), (exists vSNoL x, u <= v + y) \/ (exists vSNoL y, u <= x + v)
Axiom. (add_SNo_SNoR_interpolate) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoR (x + y), (exists vSNoR x, v + y <= u) \/ (exists vSNoR y, x + v <= u)
Axiom. (add_SNo_assoc) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + (y + z) = (x + y) + z
Axiom. (add_SNo_cancel_L) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y = x + zy = z
Axiom. (minus_SNo_0) We take the following as an axiom:
- 0 = 0
Axiom. (minus_add_SNo_distr) We take the following as an axiom:
∀x y, SNo xSNo y- (x + y) = (- x) + (- y)
Axiom. (minus_add_SNo_distr_3) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z- (x + y + z) = - x + - y + - z
Axiom. (add_SNo_Lev_bd) We take the following as an axiom:
∀x y, SNo xSNo ySNoLev (x + y) SNoLev x + SNoLev y
Axiom. (add_SNo_SNoS_omega) We take the following as an axiom:
Axiom. (add_SNo_minus_R2) We take the following as an axiom:
∀x y, SNo xSNo y(x + y) + - y = x
Axiom. (add_SNo_minus_R2') We take the following as an axiom:
∀x y, SNo xSNo y(x + - y) + y = x
Axiom. (add_SNo_minus_L2) We take the following as an axiom:
∀x y, SNo xSNo y- x + (x + y) = y
Axiom. (add_SNo_minus_L2') We take the following as an axiom:
∀x y, SNo xSNo yx + (- x + y) = y
Axiom. (add_SNo_Lt1_cancel) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y < z + yx < z
Axiom. (add_SNo_Lt2_cancel) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y < x + zy < z
Axiom. (add_SNo_assoc_4) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx + y + z + w = (x + y + z) + w
Axiom. (add_SNo_com_3_0_1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y + z = y + x + z
Axiom. (add_SNo_com_3b_1_2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(x + y) + z = (x + z) + y
Axiom. (add_SNo_com_4_inner_mid) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y) + (z + w) = (x + z) + (y + w)
Axiom. (add_SNo_rotate_3_1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y + z = z + x + y
Axiom. (add_SNo_rotate_4_1) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx + y + z + w = w + x + y + z
Axiom. (add_SNo_rotate_5_1) We take the following as an axiom:
∀x y z w v, SNo xSNo ySNo zSNo wSNo vx + y + z + w + v = v + x + y + z + w
Axiom. (add_SNo_rotate_5_2) We take the following as an axiom:
∀x y z w v, SNo xSNo ySNo zSNo wSNo vx + y + z + w + v = w + v + x + y + z
Axiom. (add_SNo_minus_SNo_prop2) We take the following as an axiom:
∀x y, SNo xSNo yx + - x + y = y
Axiom. (add_SNo_minus_SNo_prop3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y + z) + (- z + w) = x + y + w
Axiom. (add_SNo_minus_SNo_prop4) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y + z) + (w + - z) = x + y + w
Axiom. (add_SNo_minus_SNo_prop5) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y + - z) + (z + w) = x + y + w
Axiom. (add_SNo_minus_Lt1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + - y < zx < z + y
Axiom. (add_SNo_minus_Lt2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zz < x + - yz + y < x
Axiom. (add_SNo_minus_Lt1b) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx < z + yx + - y < z
Axiom. (add_SNo_minus_Lt2b) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zz + y < xz < x + - y
Axiom. (add_SNo_minus_Lt1b3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx + y < w + zx + y + - z < w
Axiom. (add_SNo_minus_Lt2b3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo ww + z < x + yw < x + y + - z
Axiom. (add_SNo_minus_Lt_lem) We take the following as an axiom:
∀x y z u v w, SNo xSNo ySNo zSNo uSNo vSNo wx + y + w < u + v + zx + y + - z < u + v + - w
Axiom. (add_SNo_minus_Le2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zz <= x + - yz + y <= x
Axiom. (add_SNo_minus_Le2b) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zz + y <= xz <= x + - y
Axiom. (add_SNo_Lt_subprop2) We take the following as an axiom:
∀x y z w u v, SNo xSNo ySNo zSNo wSNo uSNo vx + u < z + vy + v < w + ux + y < z + w
Axiom. (add_SNo_Lt_subprop3a) We take the following as an axiom:
∀x y z w u a, SNo xSNo ySNo zSNo wSNo uSNo ax + z < w + ay + a < ux + y + z < w + u
Axiom. (add_SNo_Lt_subprop3b) We take the following as an axiom:
∀x y w u v a, SNo xSNo ySNo wSNo uSNo vSNo ax + a < w + vy < a + ux + y < w + u + v
Axiom. (add_SNo_Lt_subprop3c) We take the following as an axiom:
∀x y z w u a b c, SNo xSNo ySNo zSNo wSNo uSNo aSNo bSNo cx + a < b + cy + c < ub + z < w + ax + y + z < w + u
Axiom. (add_SNo_Lt_subprop3d) We take the following as an axiom:
∀x y w u v a b c, SNo xSNo ySNo wSNo uSNo vSNo aSNo bSNo cx + a < b + vy < c + ub + c < w + ax + y < w + u + v
Axiom. (ordinal_ordsucc_SNo_eq) We take the following as an axiom:
∀alpha, ordinal alphaordsucc alpha = 1 + alpha
Axiom. (add_SNo_3a_2b) We take the following as an axiom:
∀x y z w u, SNo xSNo ySNo zSNo wSNo u(x + y + z) + (w + u) = (u + y + z) + (w + x)
Axiom. (add_SNo_1_ordsucc) We take the following as an axiom:
Axiom. (add_SNo_eps_Lt) We take the following as an axiom:
∀x, SNo x∀nomega, x < x + eps_ n
Axiom. (add_SNo_eps_Lt') We take the following as an axiom:
∀x y, SNo xSNo y∀nomega, x < yx < y + eps_ n
Axiom. (SNoLt_minus_pos) We take the following as an axiom:
∀x y, SNo xSNo yx < y0 < y + - x
Axiom. (add_SNo_omega_In_cases) We take the following as an axiom:
∀m, ∀nomega, ∀k, nat_p km n + km n \/ m + - n k
Axiom. (add_SNo_Lt4) We take the following as an axiom:
∀x y z w u v, SNo xSNo ySNo zSNo wSNo uSNo vx < wy < uz < vx + y + z < w + u + v
Axiom. (add_SNo_3_3_3_Lt1) We take the following as an axiom:
∀x y z w u, SNo xSNo ySNo zSNo wSNo ux + y < z + wx + y + u < z + w + u
Axiom. (add_SNo_3_2_3_Lt1) We take the following as an axiom:
∀x y z w u, SNo xSNo ySNo zSNo wSNo uy + x < z + wx + u + y < z + w + u
Axiom. (add_SNoCutP_lem) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly RySNoCutP ({w + y|wLx} :\/: {x + w|wLy}) ({z + y|zRx} :\/: {x + z|zRy}) /\ x + y = SNoCut ({w + y|wLx} :\/: {x + w|wLy}) ({z + y|zRx} :\/: {x + z|zRy})
Axiom. (add_SNoCutP_gen) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly RySNoCutP ({w + y|wLx} :\/: {x + w|wLy}) ({z + y|zRx} :\/: {x + z|zRy})
Axiom. (add_SNoCut_eq) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly Ryx + y = SNoCut ({w + y|wLx} :\/: {x + w|wLy}) ({z + y|zRx} :\/: {x + z|zRy})
Axiom. (add_SNo_SNoCut_L_interpolate) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoL (x + y), (exists vLx, u <= v + y) \/ (exists vLy, u <= x + v)
Axiom. (add_SNo_SNoCut_R_interpolate) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoR (x + y), (exists vRx, v + y <= u) \/ (exists vRy, x + v <= u)
Axiom. (add_SNo_minus_Lt12b3) We take the following as an axiom:
∀x y z w u v, SNo xSNo ySNo zSNo wSNo uSNo vx + y + v < w + u + zx + y + - z < w + u + - v
Axiom. (add_SNo_Le1_cancel) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + y <= z + yx <= z
Axiom. (add_SNo_minus_Le1b) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx <= z + yx + - y <= z
Axiom. (add_SNo_minus_Le1b3) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx + y <= w + zx + y + - z <= w
Axiom. (add_SNo_minus_Le12b3) We take the following as an axiom:
∀x y z w u v, SNo xSNo ySNo zSNo wSNo uSNo vx + y + v <= w + u + zx + y + - z <= w + u + - v
End of Section SurrealAdd
Notation. We use :*: as an infix operator with priority 440 and which associates to the left corresponding to applying term setprod.
Notation. We use :^: as an infix operator with priority 430 and which associates to the left corresponding to applying term setexp.
Beginning of Section SurrealMul
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Primitive. The name mul_SNo is a term of type setsetset.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Axiom. (mul_SNo_eq) We take the following as an axiom:
∀x, SNo x∀y, SNo yx * y = SNoCut ({(w 0) * y + x * (w 1) + - (w 0) * (w 1)|wSNoL x :*: SNoL y} :\/: {(z 0) * y + x * (z 1) + - (z 0) * (z 1)|zSNoR x :*: SNoR y}) ({(w 0) * y + x * (w 1) + - (w 0) * (w 1)|wSNoL x :*: SNoR y} :\/: {(z 0) * y + x * (z 1) + - (z 0) * (z 1)|zSNoR x :*: SNoL y})
Axiom. (mul_SNo_eq_2) We take the following as an axiom:
∀x y, SNo xSNo y∀p : prop, (∀L R, (∀u, u L(∀q : prop, (∀w0SNoL x, ∀w1SNoL y, u = w0 * y + x * w1 + - w0 * w1q)(∀z0SNoR x, ∀z1SNoR y, u = z0 * y + x * z1 + - z0 * z1q)q))(∀w0SNoL x, ∀w1SNoL y, w0 * y + x * w1 + - w0 * w1 L)(∀z0SNoR x, ∀z1SNoR y, z0 * y + x * z1 + - z0 * z1 L)(∀u, u R(∀q : prop, (∀w0SNoL x, ∀z1SNoR y, u = w0 * y + x * z1 + - w0 * z1q)(∀z0SNoR x, ∀w1SNoL y, u = z0 * y + x * w1 + - z0 * w1q)q))(∀w0SNoL x, ∀z1SNoR y, w0 * y + x * z1 + - w0 * z1 R)(∀z0SNoR x, ∀w1SNoL y, z0 * y + x * w1 + - z0 * w1 R)x * y = SNoCut L Rp)p
Axiom. (mul_SNo_prop_1) We take the following as an axiom:
∀x, SNo x∀y, SNo y∀p : prop, (SNo (x * y)(∀uSNoL x, ∀vSNoL y, u * y + x * v < x * y + u * v)(∀uSNoR x, ∀vSNoR y, u * y + x * v < x * y + u * v)(∀uSNoL x, ∀vSNoR y, x * y + u * v < u * y + x * v)(∀uSNoR x, ∀vSNoL y, x * y + u * v < u * y + x * v)p)p
Axiom. (SNo_mul_SNo) We take the following as an axiom:
∀x y, SNo xSNo ySNo (x * y)
Axiom. (SNo_mul_SNo_lem) We take the following as an axiom:
∀x y u v, SNo xSNo ySNo uSNo vSNo (u * y + x * v + - (u * v))
Axiom. (SNo_mul_SNo_3) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zSNo (x * y * z)
Axiom. (mul_SNo_eq_3) We take the following as an axiom:
∀x y, SNo xSNo y∀p : prop, (∀L R, SNoCutP L R(∀u, u L(∀q : prop, (∀w0SNoL x, ∀w1SNoL y, u = w0 * y + x * w1 + - w0 * w1q)(∀z0SNoR x, ∀z1SNoR y, u = z0 * y + x * z1 + - z0 * z1q)q))(∀w0SNoL x, ∀w1SNoL y, w0 * y + x * w1 + - w0 * w1 L)(∀z0SNoR x, ∀z1SNoR y, z0 * y + x * z1 + - z0 * z1 L)(∀u, u R(∀q : prop, (∀w0SNoL x, ∀z1SNoR y, u = w0 * y + x * z1 + - w0 * z1q)(∀z0SNoR x, ∀w1SNoL y, u = z0 * y + x * w1 + - z0 * w1q)q))(∀w0SNoL x, ∀z1SNoR y, w0 * y + x * z1 + - w0 * z1 R)(∀z0SNoR x, ∀w1SNoL y, z0 * y + x * w1 + - z0 * w1 R)x * y = SNoCut L Rp)p
Axiom. (mul_SNo_Lt) We take the following as an axiom:
∀x y u v, SNo xSNo ySNo uSNo vu < xv < yu * y + x * v < x * y + u * v
Axiom. (mul_SNo_Le) We take the following as an axiom:
∀x y u v, SNo xSNo ySNo uSNo vu <= xv <= yu * y + x * v <= x * y + u * v
Axiom. (mul_SNo_SNoL_interpolate) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoL (x * y), (exists vSNoL x, exists wSNoL y, u + v * w <= v * y + x * w) \/ (exists vSNoR x, exists wSNoR y, u + v * w <= v * y + x * w)
Axiom. (mul_SNo_SNoL_interpolate_impred) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoL (x * y), ∀p : prop, (∀vSNoL x, ∀wSNoL y, u + v * w <= v * y + x * wp)(∀vSNoR x, ∀wSNoR y, u + v * w <= v * y + x * wp)p
Axiom. (mul_SNo_SNoR_interpolate) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoR (x * y), (exists vSNoL x, exists wSNoR y, v * y + x * w <= u + v * w) \/ (exists vSNoR x, exists wSNoL y, v * y + x * w <= u + v * w)
Axiom. (mul_SNo_SNoR_interpolate_impred) We take the following as an axiom:
∀x y, SNo xSNo y∀uSNoR (x * y), ∀p : prop, (∀vSNoL x, ∀wSNoR y, v * y + x * w <= u + v * wp)(∀vSNoR x, ∀wSNoL y, v * y + x * w <= u + v * wp)p
Axiom. (mul_SNo_Subq_lem) We take the following as an axiom:
∀x y X Y Z W, ∀U U', (∀u, u U(∀q : prop, (∀w0X, ∀w1Y, u = w0 * y + x * w1 + - w0 * w1q)(∀z0Z, ∀z1W, u = z0 * y + x * z1 + - z0 * z1q)q))(∀w0X, ∀w1Y, w0 * y + x * w1 + - w0 * w1 U')(∀w0Z, ∀w1W, w0 * y + x * w1 + - w0 * w1 U')U U'
Axiom. (mul_SNo_zeroR) We take the following as an axiom:
∀x, SNo xx * 0 = 0
Axiom. (mul_SNo_oneR) We take the following as an axiom:
∀x, SNo xx * 1 = x
Axiom. (mul_SNo_com) We take the following as an axiom:
∀x y, SNo xSNo yx * y = y * x
Axiom. (mul_SNo_minus_distrL) We take the following as an axiom:
∀x y, SNo xSNo y(- x) * y = - x * y
Axiom. (mul_SNo_minus_distrR) We take the following as an axiom:
∀x y, SNo xSNo yx * (- y) = - (x * y)
Axiom. (mul_SNo_distrR) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(x + y) * z = x * z + y * z
Axiom. (mul_SNo_distrL) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx * (y + z) = x * y + x * z
Beginning of Section mul_SNo_assoc_lems
Variable M : setsetset
Hypothesis DL : ∀x y z, SNo xSNo ySNo zx * (y + z) = x * y + x * z
Hypothesis DR : ∀x y z, SNo xSNo ySNo z(x + y) * z = x * z + y * z
Hypothesis IL : ∀x y, SNo xSNo y∀uSNoL (x * y), ∀p : prop, (∀vSNoL x, ∀wSNoL y, u + v * w <= v * y + x * wp)(∀vSNoR x, ∀wSNoR y, u + v * w <= v * y + x * wp)p
Hypothesis IR : ∀x y, SNo xSNo y∀uSNoR (x * y), ∀p : prop, (∀vSNoL x, ∀wSNoR y, v * y + x * w <= u + v * wp)(∀vSNoR x, ∀wSNoL y, v * y + x * w <= u + v * wp)p
Hypothesis M_Lt : ∀x y u v, SNo xSNo ySNo uSNo vu < xv < yu * y + x * v < x * y + u * v
Hypothesis M_Le : ∀x y u v, SNo xSNo ySNo uSNo vu <= xv <= yu * y + x * v <= x * y + u * v
Axiom. (mul_SNo_assoc_lem1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(∀uSNoS_ (SNoLev x), u * (y * z) = (u * y) * z)(∀vSNoS_ (SNoLev y), x * (v * z) = (x * v) * z)(∀wSNoS_ (SNoLev z), x * (y * w) = (x * y) * w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), u * (v * z) = (u * v) * z)(∀uSNoS_ (SNoLev x), ∀wSNoS_ (SNoLev z), u * (y * w) = (u * y) * w)(∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), x * (v * w) = (x * v) * w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), u * (v * w) = (u * v) * w)∀L, (∀uL, ∀q : prop, (∀vSNoL x, ∀wSNoL (y * z), u = v * (y * z) + x * w + - v * wq)(∀vSNoR x, ∀wSNoR (y * z), u = v * (y * z) + x * w + - v * wq)q)∀uL, u < (x * y) * z
Axiom. (mul_SNo_assoc_lem2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(∀uSNoS_ (SNoLev x), u * (y * z) = (u * y) * z)(∀vSNoS_ (SNoLev y), x * (v * z) = (x * v) * z)(∀wSNoS_ (SNoLev z), x * (y * w) = (x * y) * w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), u * (v * z) = (u * v) * z)(∀uSNoS_ (SNoLev x), ∀wSNoS_ (SNoLev z), u * (y * w) = (u * y) * w)(∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), x * (v * w) = (x * v) * w)(∀uSNoS_ (SNoLev x), ∀vSNoS_ (SNoLev y), ∀wSNoS_ (SNoLev z), u * (v * w) = (u * v) * w)∀R, (∀uR, ∀q : prop, (∀vSNoL x, ∀wSNoR (y * z), u = v * (y * z) + x * w + - v * wq)(∀vSNoR x, ∀wSNoL (y * z), u = v * (y * z) + x * w + - v * wq)q)∀uR, (x * y) * z < u
End of Section mul_SNo_assoc_lems
Axiom. (mul_SNo_assoc) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx * (y * z) = (x * y) * z
Axiom. (mul_nat_mul_SNo) We take the following as an axiom:
∀n momega, mul_nat n m = n * m
Axiom. (mul_SNo_In_omega) We take the following as an axiom:
∀n momega, n * m omega
Axiom. (mul_SNo_zeroL) We take the following as an axiom:
∀x, SNo x0 * x = 0
Axiom. (mul_SNo_oneL) We take the following as an axiom:
∀x, SNo x1 * x = x
Axiom. (SNo_gt2_double_ltS) We take the following as an axiom:
∀x, SNo x1 < xx + 1 < 2 * x
Axiom. (pos_mul_SNo_Lt) We take the following as an axiom:
∀x y z, SNo x0 < xSNo ySNo zy < zx * y < x * z
Axiom. (nonneg_mul_SNo_Le) We take the following as an axiom:
∀x y z, SNo x0 <= xSNo ySNo zy <= zx * y <= x * z
Axiom. (neg_mul_SNo_Lt) We take the following as an axiom:
∀x y z, SNo xx < 0SNo ySNo zz < yx * y < x * z
Axiom. (pos_mul_SNo_Lt') We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 < zx < yx * z < y * z
Axiom. (mul_SNo_Lt1_pos_Lt) We take the following as an axiom:
∀x y, SNo xSNo yx < 10 < yx * y < y
Axiom. (nonneg_mul_SNo_Le') We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 <= zx <= yx * z <= y * z
Axiom. (mul_SNo_Le1_nonneg_Le) We take the following as an axiom:
∀x y, SNo xSNo yx <= 10 <= yx * y <= y
Axiom. (pos_mul_SNo_Lt2) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w0 < x0 < yx < zy < wx * y < z * w
Axiom. (nonneg_mul_SNo_Le2) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w0 <= x0 <= yx <= zy <= wx * y <= z * w
Axiom. (mul_SNo_pos_pos) We take the following as an axiom:
∀x y, SNo xSNo y0 < x0 < y0 < x * y
Axiom. (mul_SNo_pos_neg) We take the following as an axiom:
∀x y, SNo xSNo y0 < xy < 0x * y < 0
Axiom. (mul_SNo_neg_pos) We take the following as an axiom:
∀x y, SNo xSNo yx < 00 < yx * y < 0
Axiom. (mul_SNo_neg_neg) We take the following as an axiom:
∀x y, SNo xSNo yx < 0y < 00 < x * y
Axiom. (mul_SNo_nonneg_nonneg) We take the following as an axiom:
∀x y, SNo xSNo y0 <= x0 <= y0 <= x * y
Axiom. (mul_SNo_nonpos_pos) We take the following as an axiom:
∀x y, SNo xSNo yx <= 00 < yx * y <= 0
Axiom. (mul_SNo_nonpos_neg) We take the following as an axiom:
∀x y, SNo xSNo yx <= 0y < 00 <= x * y
Axiom. (nonpos_mul_SNo_Le) We take the following as an axiom:
∀x y z, SNo xx <= 0SNo ySNo zz <= yx * y <= x * z
Axiom. (SNo_sqr_nonneg) We take the following as an axiom:
∀x, SNo x0 <= x * x
Axiom. (SNo_zero_or_sqr_pos) We take the following as an axiom:
∀x, SNo xx = 0 \/ 0 < x * x
Axiom. (SNo_pos_sqr_uniq) We take the following as an axiom:
∀x y, SNo xSNo y0 < x0 < yx * x = y * yx = y
Axiom. (SNo_nonneg_sqr_uniq) We take the following as an axiom:
∀x y, SNo xSNo y0 <= x0 <= yx * x = y * yx = y
Axiom. (SNo_foil) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y) * (z + w) = x * z + x * w + y * z + y * w
Axiom. (mul_SNo_minus_minus) We take the following as an axiom:
∀x y, SNo xSNo y(- x) * (- y) = x * y
Axiom. (mul_SNo_com_3_0_1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx * y * z = y * x * z
Axiom. (mul_SNo_com_3b_1_2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(x * y) * z = (x * z) * y
Axiom. (mul_SNo_com_4_inner_mid) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x * y) * (z * w) = (x * z) * (y * w)
Axiom. (mul_SNo_rotate_3_1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx * y * z = z * x * y
Axiom. (mul_SNo_rotate_4_1) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo wx * y * z * w = w * x * y * z
Axiom. (SNo_foil_mm) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + - y) * (z + - w) = x * z + - x * w + - y * z + y * w
Axiom. (mul_SNo_nonzero_cancel) We take the following as an axiom:
∀x y z, SNo xx <> 0SNo ySNo zx * y = x * zy = z
Axiom. (mul_SNoCutP_lem) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly RySNoCutP ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ly} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ry}) ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ry} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ly}) /\ x * y = SNoCut ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ly} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ry}) ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ry} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ly}) /\ ∀q : prop, (∀LxLy' RxRy' LxRy' RxLy', (∀uLxLy', ∀p : prop, (∀wLx, ∀w'Ly, SNo wSNo w'w < xw' < yu = w * y + x * w' + - w * w'p)p)(∀wLx, ∀w'Ly, w * y + x * w' + - w * w' LxLy')(∀uRxRy', ∀p : prop, (∀zRx, ∀z'Ry, SNo zSNo z'x < zy < z'u = z * y + x * z' + - z * z'p)p)(∀zRx, ∀z'Ry, z * y + x * z' + - z * z' RxRy')(∀uLxRy', ∀p : prop, (∀wLx, ∀zRy, SNo wSNo zw < xy < zu = w * y + x * z + - w * zp)p)(∀wLx, ∀zRy, w * y + x * z + - w * z LxRy')(∀uRxLy', ∀p : prop, (∀zRx, ∀wLy, SNo zSNo wx < zw < yu = z * y + x * w + - z * wp)p)(∀zRx, ∀wLy, z * y + x * w + - z * w RxLy')SNoCutP (LxLy' :\/: RxRy') (LxRy' :\/: RxLy')x * y = SNoCut (LxLy' :\/: RxRy') (LxRy' :\/: RxLy')q)q
Axiom. (mul_SNoCutP_gen) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly RySNoCutP ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ly} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ry}) ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ry} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ly})
Axiom. (mul_SNoCut_eq) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly Ryx * y = SNoCut ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ly} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ry}) ({w 0 * y + x * w 1 + - w 0 * w 1|wLx :*: Ry} :\/: {z 0 * y + x * z 1 + - z 0 * z 1|zRx :*: Ly})
Axiom. (mul_SNoCut_abs) We take the following as an axiom:
∀Lx Rx Ly Ry x y, SNoCutP Lx RxSNoCutP Ly Ryx = SNoCut Lx Rxy = SNoCut Ly Ry∀q : prop, (∀LxLy' RxRy' LxRy' RxLy', (∀uLxLy', ∀p : prop, (∀wLx, ∀w'Ly, SNo wSNo w'w < xw' < yu = w * y + x * w' + - w * w'p)p)(∀wLx, ∀w'Ly, w * y + x * w' + - w * w' LxLy')(∀uRxRy', ∀p : prop, (∀zRx, ∀z'Ry, SNo zSNo z'x < zy < z'u = z * y + x * z' + - z * z'p)p)(∀zRx, ∀z'Ry, z * y + x * z' + - z * z' RxRy')(∀uLxRy', ∀p : prop, (∀wLx, ∀zRy, SNo wSNo zw < xy < zu = w * y + x * z + - w * zp)p)(∀wLx, ∀zRy, w * y + x * z + - w * z LxRy')(∀uRxLy', ∀p : prop, (∀zRx, ∀wLy, SNo zSNo wx < zw < yu = z * y + x * w + - z * wp)p)(∀zRx, ∀wLy, z * y + x * w + - z * w RxLy')SNoCutP (LxLy' :\/: RxRy') (LxRy' :\/: RxLy')x * y = SNoCut (LxLy' :\/: RxRy') (LxRy' :\/: RxLy')q)q
Axiom. (mul_SNo_SNoCut_SNoL_interpolate) We take the following as an axiom:
∀Lx Rx Ly Ry, SNoCutP Lx RxSNoCutP Ly Ry∀x y, x = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoL (x * y), (exists vLx, exists wLy, u + v * w <= v * y + x * w) \/ (exists vRx, exists wRy, u + v * w <= v * y + x * w)
Axiom. (mul_SNo_SNoCut_SNoL_interpolate_impred) We take the following as an axiom:
∀Lx Rx Ly Ry, SNoCutP Lx RxSNoCutP Ly Ry∀x y, x = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoL (x * y), ∀p : prop, (∀vLx, ∀wLy, u + v * w <= v * y + x * wp)(∀vRx, ∀wRy, u + v * w <= v * y + x * wp)p
Axiom. (mul_SNo_SNoCut_SNoR_interpolate) We take the following as an axiom:
∀Lx Rx Ly Ry, SNoCutP Lx RxSNoCutP Ly Ry∀x y, x = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoR (x * y), (exists vLx, exists wRy, v * y + x * w <= u + v * w) \/ (exists vRx, exists wLy, v * y + x * w <= u + v * w)
Axiom. (mul_SNo_SNoCut_SNoR_interpolate_impred) We take the following as an axiom:
∀Lx Rx Ly Ry, SNoCutP Lx RxSNoCutP Ly Ry∀x y, x = SNoCut Lx Rxy = SNoCut Ly Ry∀uSNoR (x * y), ∀p : prop, (∀vLx, ∀wRy, v * y + x * w <= u + v * wp)(∀vRx, ∀wLy, v * y + x * w <= u + v * wp)p
End of Section SurrealMul
Beginning of Section SurrealExp
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Definition. We define exp_SNo_nat to be λn m : setnat_primrec 1 (λ_ r ⇒ n * r) m of type setsetset.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Axiom. (exp_SNo_nat_0) We take the following as an axiom:
∀x, SNo xx ^ 0 = 1
Axiom. (exp_SNo_nat_S) We take the following as an axiom:
∀x, SNo x∀n, nat_p nx ^ (ordsucc n) = x * x ^ n
Axiom. (exp_SNo_nat_1) We take the following as an axiom:
∀x, SNo xx ^ 1 = x
Axiom. (exp_SNo_nat_2) We take the following as an axiom:
∀x, SNo xx ^ 2 = x * x
Axiom. (SNo_sqr_nonneg') We take the following as an axiom:
∀x, SNo x0 <= x ^ 2
Axiom. (SNo_zero_or_sqr_pos') We take the following as an axiom:
∀x, SNo xx = 0 \/ 0 < x ^ 2
Axiom. (SNo_exp_SNo_nat) We take the following as an axiom:
∀x, SNo x∀n, nat_p nSNo (x ^ n)
Axiom. (nat_exp_SNo_nat) We take the following as an axiom:
∀x, nat_p x∀n, nat_p nnat_p (x ^ n)
Axiom. (eps_ordsucc_half_add) We take the following as an axiom:
∀n, nat_p neps_ (ordsucc n) + eps_ (ordsucc n) = eps_ n
Axiom. (eps_1_half_eq1) We take the following as an axiom:
Axiom. (eps_1_half_eq2) We take the following as an axiom:
Axiom. (double_eps_1) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx + x = y + zx = eps_ 1 * (y + z)
Axiom. (exp_SNo_1_bd) We take the following as an axiom:
∀x, SNo x1 <= x∀n, nat_p n1 <= x ^ n
Axiom. (exp_SNo_2_bd) We take the following as an axiom:
∀n, nat_p nn < 2 ^ n
Axiom. (mul_SNo_eps_power_2) We take the following as an axiom:
∀n, nat_p neps_ n * 2 ^ n = 1
Axiom. (eps_bd_1) We take the following as an axiom:
Axiom. (mul_SNo_eps_power_2') We take the following as an axiom:
∀n, nat_p n2 ^ n * eps_ n = 1
Axiom. (exp_SNo_nat_mul_add) We take the following as an axiom:
∀x, SNo x∀m, nat_p m∀n, nat_p nx ^ m * x ^ n = x ^ (m + n)
Axiom. (exp_SNo_nat_mul_add') We take the following as an axiom:
∀x, SNo x∀m nomega, x ^ m * x ^ n = x ^ (m + n)
Axiom. (exp_SNo_nat_pos) We take the following as an axiom:
∀x, SNo x0 < x∀n, nat_p n0 < x ^ n
Axiom. (mul_SNo_eps_eps_add_SNo) We take the following as an axiom:
∀m nomega, eps_ m * eps_ n = eps_ (m + n)
Axiom. (SNoS_omega_Lev_equip) We take the following as an axiom:
∀n, nat_p nequip {xSNoS_ omega|SNoLev x = n} (2 ^ n)
Axiom. (SNoS_finite) We take the following as an axiom:
Axiom. (SNoS_omega_SNoL_finite) We take the following as an axiom:
Axiom. (SNoS_omega_SNoR_finite) We take the following as an axiom:
End of Section SurrealExp
Beginning of Section Int
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Definition. We define int to be omega :\/: {- n|nomega} of type set.
Axiom. (int_SNo_cases) We take the following as an axiom:
∀p : setprop, (∀nomega, p n)(∀nomega, p (- n))∀xint, p x
Axiom. (int_3_cases) We take the following as an axiom:
∀nint, ∀p : prop, (∀momega, n = - ordsucc mp)(n = 0p)(∀momega, n = ordsucc mp)p
Axiom. (int_SNo) We take the following as an axiom:
∀xint, SNo x
Axiom. (Subq_omega_int) We take the following as an axiom:
Axiom. (int_minus_SNo_omega) We take the following as an axiom:
Axiom. (int_add_SNo_lem) We take the following as an axiom:
∀nomega, ∀m, nat_p m- n + m int
Axiom. (int_add_SNo) We take the following as an axiom:
∀x yint, x + y int
Axiom. (int_minus_SNo) We take the following as an axiom:
∀xint, - x int
Axiom. (int_mul_SNo) We take the following as an axiom:
∀x yint, x * y int
End of Section Int
Beginning of Section SurrealAbs
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Definition. We define abs_SNo to be λx ⇒ if 0 <= x then x else - x of type setset.
Axiom. (nonneg_abs_SNo) We take the following as an axiom:
∀x, 0 <= xabs_SNo x = x
Axiom. (not_nonneg_abs_SNo) We take the following as an axiom:
∀x, ~ (0 <= x)abs_SNo x = - x
Axiom. (abs_SNo_0) We take the following as an axiom:
Axiom. (pos_abs_SNo) We take the following as an axiom:
∀x, 0 < xabs_SNo x = x
Axiom. (neg_abs_SNo) We take the following as an axiom:
∀x, SNo xx < 0abs_SNo x = - x
Axiom. (SNo_abs_SNo) We take the following as an axiom:
∀x, SNo xSNo (abs_SNo x)
Axiom. (abs_SNo_Lev) We take the following as an axiom:
∀x, SNo xSNoLev (abs_SNo x) = SNoLev x
Axiom. (abs_SNo_minus) We take the following as an axiom:
∀x, SNo xabs_SNo (- x) = abs_SNo x
Axiom. (abs_SNo_dist_swap) We take the following as an axiom:
∀x y, SNo xSNo yabs_SNo (x + - y) = abs_SNo (y + - x)
Axiom. (SNo_triangle) We take the following as an axiom:
∀x y, SNo xSNo yabs_SNo (x + y) <= abs_SNo x + abs_SNo y
Axiom. (SNo_triangle2) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zabs_SNo (x + - z) <= abs_SNo (x + - y) + abs_SNo (y + - z)
End of Section SurrealAbs
Beginning of Section SNoMaxMin
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Definition. We define SNo_max_of to be λX x ⇒ x X /\ SNo x /\ ∀yX, SNo yy <= x of type setsetprop.
Definition. We define SNo_min_of to be λX x ⇒ x X /\ SNo x /\ ∀yX, SNo yx <= y of type setsetprop.
Axiom. (minus_SNo_max_min) We take the following as an axiom:
∀X y, (∀xX, SNo x)SNo_max_of X ySNo_min_of {- x|xX} (- y)
Axiom. (minus_SNo_max_min') We take the following as an axiom:
∀X y, (∀xX, SNo x)SNo_max_of {- x|xX} ySNo_min_of X (- y)
Axiom. (minus_SNo_min_max) We take the following as an axiom:
∀X y, (∀xX, SNo x)SNo_min_of X ySNo_max_of {- x|xX} (- y)
Axiom. (double_SNo_max_1) We take the following as an axiom:
∀x y, SNo xSNo_max_of (SNoL x) y∀z, SNo zx < zy + z < x + xexists wSNoR z, y + w = x + x
Axiom. (double_SNo_min_1) We take the following as an axiom:
∀x y, SNo xSNo_min_of (SNoR x) y∀z, SNo zz < xx + x < y + zexists wSNoL z, y + w = x + x
Axiom. (finite_max_exists) We take the following as an axiom:
∀X, (∀xX, SNo x)finite XX <> 0exists x, SNo_max_of X x
Axiom. (finite_min_exists) We take the following as an axiom:
∀X, (∀xX, SNo x)finite XX <> 0exists x, SNo_min_of X x
Axiom. (SNoS_omega_SNoL_max_exists) We take the following as an axiom:
∀xSNoS_ omega, SNoL x = 0 \/ exists y, SNo_max_of (SNoL x) y
Axiom. (SNoS_omega_SNoR_min_exists) We take the following as an axiom:
∀xSNoS_ omega, SNoR x = 0 \/ exists y, SNo_min_of (SNoR x) y
End of Section SNoMaxMin
Beginning of Section DiadicRationals
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Axiom. (nonneg_diadic_rational_p_SNoS_omega) We take the following as an axiom:
∀komega, ∀n, nat_p neps_ k * n SNoS_ omega
Definition. We define diadic_rational_p to be λx ⇒ exists komega, exists mint, x = eps_ k * m of type setprop.
Axiom. (diadic_rational_p_SNoS_omega) We take the following as an axiom:
Axiom. (int_diadic_rational_p) We take the following as an axiom:
Axiom. (omega_diadic_rational_p) We take the following as an axiom:
Axiom. (eps_diadic_rational_p) We take the following as an axiom:
Axiom. (minus_SNo_diadic_rational_p) We take the following as an axiom:
Axiom. (mul_SNo_diadic_rational_p) We take the following as an axiom:
Axiom. (add_SNo_diadic_rational_p) We take the following as an axiom:
Axiom. (SNoS_omega_diadic_rational_p_lem) We take the following as an axiom:
∀n, nat_p n∀x, SNo xSNoLev x = ndiadic_rational_p x
Axiom. (SNoS_omega_diadic_rational_p) We take the following as an axiom:
Axiom. (mul_SNo_SNoS_omega) We take the following as an axiom:
End of Section DiadicRationals
Beginning of Section SurrealDiv
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Definition. We define SNoL_pos to be λx ⇒ {wSNoL x|0 < w} of type setset.
Axiom. (SNo_recip_pos_pos) We take the following as an axiom:
∀x xi, SNo xSNo xi0 < xx * xi = 10 < xi
Axiom. (SNo_recip_lem1) We take the following as an axiom:
∀x x' x'i y y', SNo x0 < xx' SNoL_pos xSNo x'ix' * x'i = 1SNo yx * y < 1SNo y'1 + - x * y' = (1 + - x * y) * (x' + - x) * x'i1 < x * y'
Axiom. (SNo_recip_lem2) We take the following as an axiom:
∀x x' x'i y y', SNo x0 < xx' SNoL_pos xSNo x'ix' * x'i = 1SNo y1 < x * ySNo y'1 + - x * y' = (1 + - x * y) * (x' + - x) * x'ix * y' < 1
Axiom. (SNo_recip_lem3) We take the following as an axiom:
∀x x' x'i y y', SNo x0 < xx' SNoR xSNo x'ix' * x'i = 1SNo yx * y < 1SNo y'1 + - x * y' = (1 + - x * y) * (x' + - x) * x'ix * y' < 1
Axiom. (SNo_recip_lem4) We take the following as an axiom:
∀x x' x'i y y', SNo x0 < xx' SNoR xSNo x'ix' * x'i = 1SNo y1 < x * ySNo y'1 + - x * y' = (1 + - x * y) * (x' + - x) * x'i1 < x * y'
Definition. We define SNo_recipauxset to be λY x X g ⇒ \/_ yY, {(1 + (x' + - x) * y) * g x'|x'X} of type setsetset(setset)set.
Axiom. (SNo_recipauxset_I) We take the following as an axiom:
∀Y x X, ∀g : setset, ∀yY, ∀x'X, (1 + (x' + - x) * y) * g x' SNo_recipauxset Y x X g
Axiom. (SNo_recipauxset_E) We take the following as an axiom:
∀Y x X, ∀g : setset, ∀zSNo_recipauxset Y x X g, ∀p : prop, (∀yY, ∀x'X, z = (1 + (x' + - x) * y) * g x'p)p
Axiom. (SNo_recipauxset_ext) We take the following as an axiom:
∀Y x X, ∀g h : setset, (∀x'X, g x' = h x')SNo_recipauxset Y x X g = SNo_recipauxset Y x X h
Definition. We define SNo_recipaux to be λx g ⇒ nat_primrec ({0},0) (λk p ⇒ (p 0 :\/: SNo_recipauxset (p 0) x (SNoR x) g :\/: SNo_recipauxset (p 1) x (SNoL_pos x) g,p 1 :\/: SNo_recipauxset (p 0) x (SNoL_pos x) g :\/: SNo_recipauxset (p 1) x (SNoR x) g)) of type set(setset)setset.
Axiom. (SNo_recipaux_0) We take the following as an axiom:
∀x, ∀g : setset, SNo_recipaux x g 0 = ({0},0)
Axiom. (SNo_recipaux_S) We take the following as an axiom:
∀x, ∀g : setset, ∀n, nat_p nSNo_recipaux x g (ordsucc n) = (SNo_recipaux x g n 0 :\/: SNo_recipauxset (SNo_recipaux x g n 0) x (SNoR x) g :\/: SNo_recipauxset (SNo_recipaux x g n 1) x (SNoL_pos x) g,SNo_recipaux x g n 1 :\/: SNo_recipauxset (SNo_recipaux x g n 0) x (SNoL_pos x) g :\/: SNo_recipauxset (SNo_recipaux x g n 1) x (SNoR x) g)
Axiom. (SNo_recipaux_lem1) We take the following as an axiom:
∀x, SNo x0 < x∀g : setset, (∀x'SNoS_ (SNoLev x), 0 < x'SNo (g x') /\ x' * g x' = 1)∀k, nat_p k(∀ySNo_recipaux x g k 0, SNo y /\ x * y < 1) /\ (∀ySNo_recipaux x g k 1, SNo y /\ 1 < x * y)
Axiom. (SNo_recipaux_lem2) We take the following as an axiom:
∀x, SNo x0 < x∀g : setset, (∀x'SNoS_ (SNoLev x), 0 < x'SNo (g x') /\ x' * g x' = 1)SNoCutP (\/_ komega, SNo_recipaux x g k 0) (\/_ komega, SNo_recipaux x g k 1)
Axiom. (SNo_recipaux_ext) We take the following as an axiom:
∀x, SNo x∀g h : setset, (∀x'SNoS_ (SNoLev x), g x' = h x')∀k, nat_p kSNo_recipaux x g k = SNo_recipaux x h k
Beginning of Section recip_SNo_pos
Let G : set(setset)setλx g ⇒ SNoCut (\/_ komega, SNo_recipaux x g k 0) (\/_ komega, SNo_recipaux x g k 1)
Definition. We define recip_SNo_pos to be SNo_rec_i G of type setset.
Axiom. (recip_SNo_pos_eq) We take the following as an axiom:
∀x, SNo xrecip_SNo_pos x = G x recip_SNo_pos
Axiom. (recip_SNo_pos_prop1) We take the following as an axiom:
∀x, SNo x0 < xSNo (recip_SNo_pos x) /\ x * recip_SNo_pos x = 1
Axiom. (SNo_recip_SNo_pos) We take the following as an axiom:
∀x, SNo x0 < xSNo (recip_SNo_pos x)
Axiom. (recip_SNo_pos_invR) We take the following as an axiom:
∀x, SNo x0 < xx * recip_SNo_pos x = 1
Axiom. (recip_SNo_pos_1) We take the following as an axiom:
Axiom. (recip_SNo_pos_is_pos) We take the following as an axiom:
∀x, SNo x0 < x0 < recip_SNo_pos x
Axiom. (recip_SNo_pos_invol) We take the following as an axiom:
∀x, SNo x0 < xrecip_SNo_pos (recip_SNo_pos x) = x
Axiom. (recip_SNo_pos_eps_) We take the following as an axiom:
∀n, nat_p nrecip_SNo_pos (eps_ n) = 2 ^ n
Axiom. (recip_SNo_pos_pow_2) We take the following as an axiom:
∀n, nat_p nrecip_SNo_pos (2 ^ n) = eps_ n
Axiom. (recip_SNo_pos_2) We take the following as an axiom:
End of Section recip_SNo_pos
Definition. We define recip_SNo to be λx ⇒ if 0 < x then recip_SNo_pos x else if x < 0 then - recip_SNo_pos (- x) else 0 of type setset.
Axiom. (recip_SNo_poscase) We take the following as an axiom:
∀x, 0 < xrecip_SNo x = recip_SNo_pos x
Axiom. (recip_SNo_negcase) We take the following as an axiom:
∀x, SNo xx < 0recip_SNo x = - recip_SNo_pos (- x)
Axiom. (recip_SNo_0) We take the following as an axiom:
Axiom. (recip_SNo_1) We take the following as an axiom:
Axiom. (SNo_recip_SNo) We take the following as an axiom:
∀x, SNo xSNo (recip_SNo x)
Axiom. (recip_SNo_invR) We take the following as an axiom:
∀x, SNo xx <> 0x * recip_SNo x = 1
Axiom. (recip_SNo_invL) We take the following as an axiom:
∀x, SNo xx <> 0recip_SNo x * x = 1
Axiom. (recip_SNo_eps_) We take the following as an axiom:
∀n, nat_p nrecip_SNo (eps_ n) = 2 ^ n
Axiom. (recip_SNo_pow_2) We take the following as an axiom:
∀n, nat_p nrecip_SNo (2 ^ n) = eps_ n
Axiom. (recip_SNo_2) We take the following as an axiom:
Axiom. (recip_SNo_invol) We take the following as an axiom:
∀x, SNo xrecip_SNo (recip_SNo x) = x
Axiom. (recip_SNo_of_pos_is_pos) We take the following as an axiom:
∀x, SNo x0 < x0 < recip_SNo x
Axiom. (recip_SNo_neg') We take the following as an axiom:
∀x, SNo xx < 0recip_SNo x < 0
Definition. We define div_SNo to be λx y ⇒ x * recip_SNo y of type setsetset.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_SNo.
Axiom. (SNo_div_SNo) We take the following as an axiom:
∀x y, SNo xSNo ySNo (x :/: y)
Axiom. (div_SNo_0_num) We take the following as an axiom:
∀x, SNo x0 :/: x = 0
Axiom. (div_SNo_0_denum) We take the following as an axiom:
∀x, SNo xx :/: 0 = 0
Axiom. (mul_div_SNo_invL) We take the following as an axiom:
∀x y, SNo xSNo yy <> 0(x :/: y) * y = x
Axiom. (mul_div_SNo_invR) We take the following as an axiom:
∀x y, SNo xSNo yy <> 0y * (x :/: y) = x
Axiom. (mul_div_SNo_R) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(x :/: y) * z = (x * z) :/: y
Axiom. (mul_div_SNo_L) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zz * (x :/: y) = (z * x) :/: y
Axiom. (div_mul_SNo_invL) We take the following as an axiom:
∀x y, SNo xSNo yy <> 0(x * y) :/: y = x
Axiom. (div_div_SNo) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z(x :/: y) :/: z = x :/: (y * z)
Axiom. (mul_div_SNo_both) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x :/: y) * (z :/: w) = (x * z) :/: (y * w)
Axiom. (recip_SNo_pos_pos) We take the following as an axiom:
∀x, SNo x0 < x0 < recip_SNo_pos x
Axiom. (recip_SNo_of_neg_is_neg) We take the following as an axiom:
∀x, SNo xx < 0recip_SNo x < 0
Axiom. (div_SNo_pos_pos) We take the following as an axiom:
∀x y, SNo xSNo y0 < x0 < y0 < x :/: y
Axiom. (div_SNo_neg_neg) We take the following as an axiom:
∀x y, SNo xSNo yx < 0y < 00 < x :/: y
Axiom. (div_SNo_pos_neg) We take the following as an axiom:
∀x y, SNo xSNo y0 < xy < 0x :/: y < 0
Axiom. (div_SNo_neg_pos) We take the following as an axiom:
∀x y, SNo xSNo yx < 00 < yx :/: y < 0
Axiom. (div_SNo_pos_LtL) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 < yx < z * yx :/: y < z
Axiom. (div_SNo_pos_LtR) We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 < yz * y < xz < x :/: y
Axiom. (div_SNo_pos_LtL') We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 < yx :/: y < zx < z * y
Axiom. (div_SNo_pos_LtR') We take the following as an axiom:
∀x y z, SNo xSNo ySNo z0 < yz < x :/: yz * y < x
Axiom. (mul_div_SNo_nonzero_eq) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zy <> 0x = y * zx :/: y = z
End of Section SurrealDiv
Beginning of Section SurrealSqrt
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_SNo.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Definition. We define SNoL_nonneg to be λx ⇒ {wSNoL x|0 <= w} of type setset.
Axiom. (SNoL_nonneg_0) We take the following as an axiom:
Axiom. (SNoL_nonneg_1) We take the following as an axiom:
Definition. We define SNo_sqrtauxset to be λY Z x ⇒ \/_ yY, {(x + y * z) :/: (y + z)|zZ, 0 < y + z} of type setsetsetset.
Axiom. (SNo_sqrtauxset_I) We take the following as an axiom:
∀Y Z x, ∀yY, ∀zZ, 0 < y + z(x + y * z) :/: (y + z) SNo_sqrtauxset Y Z x
Axiom. (SNo_sqrtauxset_E) We take the following as an axiom:
∀Y Z x, ∀uSNo_sqrtauxset Y Z x, ∀p : prop, (∀yY, ∀zZ, 0 < y + zu = (x + y * z) :/: (y + z)p)p
Axiom. (SNo_sqrtauxset_0) We take the following as an axiom:
∀Z x, SNo_sqrtauxset 0 Z x = 0
Axiom. (SNo_sqrtauxset_0') We take the following as an axiom:
∀Y x, SNo_sqrtauxset Y 0 x = 0
Definition. We define SNo_sqrtaux to be λx g ⇒ nat_primrec ({g w|wSNoL_nonneg x},{g z|zSNoR x}) (λk p ⇒ (p 0 :\/: SNo_sqrtauxset (p 0) (p 1) x,p 1 :\/: SNo_sqrtauxset (p 0) (p 0) x :\/: SNo_sqrtauxset (p 1) (p 1) x)) of type set(setset)setset.
Axiom. (SNo_sqrtaux_0) We take the following as an axiom:
∀x, ∀g : setset, SNo_sqrtaux x g 0 = ({g w|wSNoL_nonneg x},{g z|zSNoR x})
Axiom. (SNo_sqrtaux_S) We take the following as an axiom:
∀x, ∀g : setset, ∀n, nat_p nSNo_sqrtaux x g (ordsucc n) = (SNo_sqrtaux x g n 0 :\/: SNo_sqrtauxset (SNo_sqrtaux x g n 0) (SNo_sqrtaux x g n 1) x,SNo_sqrtaux x g n 1 :\/: SNo_sqrtauxset (SNo_sqrtaux x g n 0) (SNo_sqrtaux x g n 0) x :\/: SNo_sqrtauxset (SNo_sqrtaux x g n 1) (SNo_sqrtaux x g n 1) x)
Axiom. (SNo_sqrtaux_mon_lem) We take the following as an axiom:
∀x, ∀g : setset, ∀m, nat_p m∀n, nat_p nSNo_sqrtaux x g m 0 SNo_sqrtaux x g (add_nat m n) 0 /\ SNo_sqrtaux x g m 1 SNo_sqrtaux x g (add_nat m n) 1
Axiom. (SNo_sqrtaux_mon) We take the following as an axiom:
∀x, ∀g : setset, ∀m, nat_p m∀n, nat_p nm nSNo_sqrtaux x g m 0 SNo_sqrtaux x g n 0 /\ SNo_sqrtaux x g m 1 SNo_sqrtaux x g n 1
Axiom. (SNo_sqrtaux_ext) We take the following as an axiom:
∀x, SNo x∀g h : setset, (∀x'SNoS_ (SNoLev x), g x' = h x')∀k, nat_p kSNo_sqrtaux x g k = SNo_sqrtaux x h k
Beginning of Section sqrt_SNo_nonneg
Let G : set(setset)setλx g ⇒ SNoCut (\/_ komega, SNo_sqrtaux x g k 0) (\/_ komega, SNo_sqrtaux x g k 1)
Axiom. (sqrt_SNo_nonneg_eq) We take the following as an axiom:
Axiom. (sqrt_SNo_nonneg_prop1a) We take the following as an axiom:
∀x, SNo x0 <= x(∀wSNoS_ (SNoLev x), 0 <= wSNo (sqrt_SNo_nonneg w) /\ 0 <= sqrt_SNo_nonneg w /\ sqrt_SNo_nonneg w * sqrt_SNo_nonneg w = w)∀k, nat_p k(∀ySNo_sqrtaux x sqrt_SNo_nonneg k 0, SNo y /\ 0 <= y /\ y * y < x) /\ (∀ySNo_sqrtaux x sqrt_SNo_nonneg k 1, SNo y /\ 0 <= y /\ x < y * y)
Axiom. (sqrt_SNo_nonneg_prop1b) We take the following as an axiom:
∀x, SNo x0 <= x(∀k, nat_p k(∀ySNo_sqrtaux x sqrt_SNo_nonneg k 0, SNo y /\ 0 <= y /\ y * y < x) /\ (∀ySNo_sqrtaux x sqrt_SNo_nonneg k 1, SNo y /\ 0 <= y /\ x < y * y))SNoCutP (\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 0) (\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 1)
Axiom. (sqrt_SNo_nonneg_prop1c) We take the following as an axiom:
∀x, SNo x0 <= xSNoCutP (\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 0) (\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 1)(∀z(\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 1), ∀p : prop, (SNo z0 <= zx < z * zp)p)0 <= G x sqrt_SNo_nonneg
Axiom. (sqrt_SNo_nonneg_prop1) We take the following as an axiom:
End of Section sqrt_SNo_nonneg
Axiom. (SNo_sqrtaux_0_1_prop) We take the following as an axiom:
∀x, SNo x0 <= x∀k, nat_p k(∀ySNo_sqrtaux x sqrt_SNo_nonneg k 0, SNo y /\ 0 <= y /\ y * y < x) /\ (∀ySNo_sqrtaux x sqrt_SNo_nonneg k 1, SNo y /\ 0 <= y /\ x < y * y)
Axiom. (SNo_sqrtaux_0_prop) We take the following as an axiom:
∀x, SNo x0 <= x∀k, nat_p k∀ySNo_sqrtaux x sqrt_SNo_nonneg k 0, SNo y /\ 0 <= y /\ y * y < x
Axiom. (SNo_sqrtaux_1_prop) We take the following as an axiom:
∀x, SNo x0 <= x∀k, nat_p k∀ySNo_sqrtaux x sqrt_SNo_nonneg k 1, SNo y /\ 0 <= y /\ x < y * y
Axiom. (SNo_sqrt_SNo_SNoCutP) We take the following as an axiom:
Axiom. (SNo_sqrt_SNo_nonneg) We take the following as an axiom:
∀x, SNo x0 <= xSNo (sqrt_SNo_nonneg x)
Axiom. (sqrt_SNo_nonneg_nonneg) We take the following as an axiom:
∀x, SNo x0 <= x0 <= sqrt_SNo_nonneg x
Axiom. (sqrt_SNo_nonneg_sqr) We take the following as an axiom:
∀x, SNo x0 <= xsqrt_SNo_nonneg x * sqrt_SNo_nonneg x = x
Axiom. (sqrt_SNo_nonneg_0) We take the following as an axiom:
Axiom. (sqrt_SNo_nonneg_1) We take the following as an axiom:
End of Section SurrealSqrt
Beginning of Section Reals
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_SNo.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Axiom. (SNoS_omega_drat_intvl) We take the following as an axiom:
∀xSNoS_ omega, ∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k
Axiom. (SNoS_ordsucc_omega_bdd_above) We take the following as an axiom:
∀xSNoS_ (ordsucc omega), x < omegaexists Nomega, x < N
Axiom. (SNoS_ordsucc_omega_bdd_below) We take the following as an axiom:
∀xSNoS_ (ordsucc omega), - omega < xexists Nomega, - N < x
Axiom. (SNoS_ordsucc_omega_bdd_drat_intvl) We take the following as an axiom:
∀xSNoS_ (ordsucc omega), - omega < xx < omega∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k
Definition. We define real to be {xSNoS_ (ordsucc omega)|x <> omega /\ x <> - omega /\ (∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)} of type set.
Definition. We define rational to be {xreal|exists mint, exists nomega :\: {0}, x = m :/: n} of type set.
Axiom. (real_I) We take the following as an axiom:
∀xSNoS_ (ordsucc omega), x <> omegax <> - omega(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)x real
Axiom. (real_E) We take the following as an axiom:
∀xreal, ∀p : prop, (SNo xSNoLev x ordsucc omegax SNoS_ (ordsucc omega)- omega < xx < omega(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)(∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k)p)p
Axiom. (real_SNo) We take the following as an axiom:
∀xreal, SNo x
Axiom. (real_SNoS_omega_prop) We take the following as an axiom:
∀xreal, ∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x
Axiom. (SNoS_omega_real) We take the following as an axiom:
Axiom. (real_0) We take the following as an axiom:
Axiom. (real_1) We take the following as an axiom:
Axiom. (SNoLev_In_real_SNoS_omega) We take the following as an axiom:
∀xreal, ∀w, SNo wSNoLev w SNoLev xw SNoS_ omega
Axiom. (real_SNoCut_SNoS_omega) We take the following as an axiom:
∀L RSNoS_ omega, SNoCutP L RL <> 0R <> 0(∀wL, exists w'L, w < w')(∀zR, exists z'R, z' < z)SNoCut L R real
Axiom. (real_SNoCut) We take the following as an axiom:
∀L Rreal, SNoCutP L RL <> 0R <> 0(∀wL, exists w'L, w < w')(∀zR, exists z'R, z' < z)SNoCut L R real
Axiom. (minus_SNo_prereal_1) We take the following as an axiom:
∀x, SNo x(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)(∀qSNoS_ omega, (∀komega, abs_SNo (q + - - x) < eps_ k)q = - x)
Axiom. (minus_SNo_prereal_2) We take the following as an axiom:
∀x, SNo x(∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k)(∀komega, exists qSNoS_ omega, q < - x /\ - x < q + eps_ k)
Axiom. (SNo_prereal_incr_lower_pos) We take the following as an axiom:
∀x, SNo x0 < x(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)(∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k)∀komega, ∀p : prop, (∀qSNoS_ omega, 0 < qq < xx < q + eps_ kp)p
Axiom. (real_minus_SNo) We take the following as an axiom:
Axiom. (SNo_prereal_incr_lower_approx) We take the following as an axiom:
∀x, SNo x(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)(∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k)exists fSNoS_ omega :^: omega, ∀nomega, f n < x /\ x < f n + eps_ n /\ ∀in, f i < f n
Axiom. (SNo_prereal_decr_upper_approx) We take the following as an axiom:
∀x, SNo x(∀qSNoS_ omega, (∀komega, abs_SNo (q + - x) < eps_ k)q = x)(∀komega, exists qSNoS_ omega, q < x /\ x < q + eps_ k)exists gSNoS_ omega :^: omega, ∀nomega, g n + - eps_ n < x /\ x < g n /\ ∀in, g n < g i
Axiom. (SNoCutP_SNoCut_lim) We take the following as an axiom:
∀lambda, ordinal lambda(∀alphalambda, ordsucc alpha lambda)∀L RSNoS_ lambda, SNoCutP L RSNoLev (SNoCut L R) ordsucc lambda
Axiom. (SNoCutP_SNoCut_omega) We take the following as an axiom:
Axiom. (SNo_approx_real_lem) We take the following as an axiom:
Axiom. (SNo_approx_real) We take the following as an axiom:
∀x, SNo x∀f gSNoS_ omega :^: omega, (∀nomega, f n < x)(∀nomega, x < f n + eps_ n)(∀nomega, ∀in, f i < f n)(∀nomega, x < g n)(∀nomega, ∀in, g n < g i)x = SNoCut {f n|nomega} {g n|nomega}x real
Axiom. (SNo_approx_real_rep) We take the following as an axiom:
∀xreal, ∀p : prop, (∀f gSNoS_ omega :^: omega, (∀nomega, f n < x)(∀nomega, x < f n + eps_ n)(∀nomega, ∀in, f i < f n)(∀nomega, g n + - eps_ n < x)(∀nomega, x < g n)(∀nomega, ∀in, g n < g i)SNoCutP {f n|nomega} {g n|nomega}x = SNoCut {f n|nomega} {g n|nomega}p)p
Axiom. (real_add_SNo) We take the following as an axiom:
∀x yreal, x + y real
Axiom. (SNoS_ordsucc_omega_bdd_eps_pos) We take the following as an axiom:
∀xSNoS_ (ordsucc omega), 0 < xx < omegaexists Nomega, eps_ N * x < 1
Axiom. (real_mul_SNo_pos) We take the following as an axiom:
∀x yreal, 0 < x0 < yx * y real
Axiom. (real_mul_SNo) We take the following as an axiom:
∀x yreal, x * y real
Axiom. (abs_SNo_intvl_bd) We take the following as an axiom:
∀x y z, SNo xSNo ySNo zx <= yy < x + zabs_SNo (y + - x) < z
Axiom. (nonneg_real_nat_interval) We take the following as an axiom:
∀xreal, 0 <= xexists nomega, n <= x /\ x < ordsucc n
Axiom. (pos_real_left_approx_double) We take the following as an axiom:
∀xreal, 0 < xx <> 2(∀momega, x <> eps_ m)exists wSNoL_pos x, x < 2 * w
Axiom. (real_recip_SNo_lem1) We take the following as an axiom:
Axiom. (real_recip_SNo_pos) We take the following as an axiom:
Axiom. (real_recip_SNo) We take the following as an axiom:
Axiom. (real_div_SNo) We take the following as an axiom:
∀x yreal, x :/: y real
Axiom. (sqrt_SNo_nonneg_0inL0) We take the following as an axiom:
∀x, SNo x0 <= x0 SNoLev x0 SNo_sqrtaux x sqrt_SNo_nonneg 0 0
Axiom. (sqrt_SNo_nonneg_Lnonempty) We take the following as an axiom:
∀x, SNo x0 <= x0 SNoLev x(\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 0) <> 0
Axiom. (sqrt_SNo_nonneg_Rnonempty) We take the following as an axiom:
∀x, SNo x0 <= x1 SNoLev x(\/_ komega, SNo_sqrtaux x sqrt_SNo_nonneg k 1) <> 0
Axiom. (SNo_sqrtauxset_real) We take the following as an axiom:
∀Y Z x, Y realZ realx realSNo_sqrtauxset Y Z x real
Axiom. (SNo_sqrtauxset_real_nonneg) We take the following as an axiom:
∀Y Z x, Y {wreal|0 <= w}Z {zreal|0 <= z}x real0 <= xSNo_sqrtauxset Y Z x {wreal|0 <= w}
Axiom. (sqrt_SNo_nonneg_SNoS_omega) We take the following as an axiom:
Axiom. (sqrt_SNo_nonneg_real) We take the following as an axiom:
Axiom. (real_Archimedean) We take the following as an axiom:
∀x yreal, 0 < x0 <= yexists nomega, y <= n * x
Axiom. (real_complete1) We take the following as an axiom:
∀a breal :^: omega, (∀nomega, a n <= b n /\ a n <= a (ordsucc n) /\ b (ordsucc n) <= b n)exists xreal, ∀nomega, a n <= x /\ x <= b n
Axiom. (real_complete2) We take the following as an axiom:
∀a breal :^: omega, (∀nomega, a n <= b n /\ a n <= a (n + 1) /\ b (n + 1) <= b n)exists xreal, ∀nomega, a n <= x /\ x <= b n
End of Section Reals
Axiom. (mul_nat_1R) We take the following as an axiom:
∀x0, mul_nat x0 1 = x0
Axiom. (mul_nat_asso) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1(∀x2, nat_p x2mul_nat (mul_nat x0 x1) x2 = mul_nat x0 (mul_nat x1 x2))))
Axiom. (mul_nat_com) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1mul_nat x0 x1 = mul_nat x1 x0))
Axiom. (mul_nat_SL) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1mul_nat (ordsucc x0) x1 = add_nat (mul_nat x0 x1) x1))
Axiom. (eps_1_half_eq3) We take the following as an axiom:
mul_SNo (eps_ 1) 2 = 1
Axiom. (double_nat_cancel) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1mul_nat 2 x0 = mul_nat 2 x1x0 = x1))
Axiom. (add_nat_Subq_L) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1x0 add_nat x0 x1))
Axiom. (square_nat_Subq) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1x0 x1mul_nat x0 x0 mul_nat x1 x1))
Axiom. (ordsucc_in_double_nat_ordsucc) We take the following as an axiom:
(∀x0, nat_p x0ordsucc x0 mul_nat 2 (ordsucc x0))
Axiom. (double_nat_Subq_0) We take the following as an axiom:
(∀x0, nat_p x0mul_nat 2 x0 x0x0 = 0)
Definition. We define even_nat to be (λx0 : setand (x0 omega) (∀x1 : prop, (∀x2, and (x2 omega) (x0 = mul_nat 2 x2)x1)x1)) of type setprop.
Definition. We define odd_nat to be (λx0 : setand (x0 omega) (∀x1, x1 omegax0 = mul_nat 2 x1(∀x2 : prop, x2))) of type setprop.
Axiom. (even_nat_0) We take the following as an axiom:
even_nat 0
Axiom. (even_nat_not_odd_nat) We take the following as an axiom:
(∀x0, even_nat x0not (odd_nat x0))
Axiom. (odd_nat_1) We take the following as an axiom:
odd_nat 1
Axiom. (even_nat_double) We take the following as an axiom:
(∀x0, nat_p x0even_nat (mul_nat 2 x0))
Axiom. (even_nat_S_S) We take the following as an axiom:
(∀x0, even_nat x0even_nat (ordsucc (ordsucc x0)))
Axiom. (even_nat_S_S_inv) We take the following as an axiom:
(∀x0, nat_p x0even_nat (ordsucc (ordsucc x0))even_nat x0)
Axiom. (even_nat_xor_S) We take the following as an axiom:
(∀x0, nat_p x0exactly1of2 (even_nat x0) (even_nat (ordsucc x0)))
Axiom. (even_nat_or_odd_nat) We take the following as an axiom:
(∀x0, nat_p x0or (even_nat x0) (odd_nat x0))
Axiom. (not_odd_nat_0) We take the following as an axiom:
not (odd_nat 0)
Axiom. (even_nat_odd_nat_S) We take the following as an axiom:
(∀x0, even_nat x0odd_nat (ordsucc x0))
Axiom. (odd_nat_even_nat_S) We take the following as an axiom:
(∀x0, odd_nat x0even_nat (ordsucc x0))
Axiom. (odd_nat_xor_odd_sum) We take the following as an axiom:
(∀x0, odd_nat x0(∀x1, nat_p x1exactly1of2 (odd_nat x1) (odd_nat (add_nat x0 x1))))
Axiom. (odd_nat_iff_odd_mul_nat) We take the following as an axiom:
(∀x0, odd_nat x0(∀x1, nat_p x1iff (odd_nat x1) (odd_nat (mul_nat x0 x1))))
Axiom. (odd_nat_mul_nat) We take the following as an axiom:
(∀x0 x1, odd_nat x0odd_nat x1odd_nat (mul_nat x0 x1))
Axiom. (add_nat_0_inv) We take the following as an axiom:
(∀x0, x0 omega(∀x1, x1 omegaadd_nat x0 x1 = 0and (x0 = 0) (x1 = 0)))
Axiom. (mul_nat_0_inv) We take the following as an axiom:
(∀x0, x0 omega(∀x1, x1 omegamul_nat x0 x1 = 0or (x0 = 0) (x1 = 0)))
Axiom. (form100_1_v1_lem) We take the following as an axiom:
(∀x0, nat_p x0(∀x1, nat_p x1mul_nat x0 x0 = mul_nat 2 (mul_nat x1 x1)x1 = 0))
Axiom. (form100_1_v1) We take the following as an axiom:
(∀x0, x0 setminus omega 1(∀x1, x1 setminus omega 1mul_nat x0 x0 = mul_nat 2 (mul_nat x1 x1)(∀x2 : prop, x2)))
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_SNo.
Axiom. (sqrt_2_irrational) We take the following as an axiom:
sqrt_SNo_nonneg 2 real :\: rational
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 ''|uy} of type setsetset.
Variable F : setprop
Hypothesis extension_tag_fresh : ∀x, F x∀ux, extension_tag /:e u
Axiom. (ctagged_notin_F) We take the following as an axiom:
∀x y, F x(y '') /:e x
Axiom. (ctagged_eqE_Subq) We take the following as an axiom:
∀x y, F x∀ux, ∀v, u '' = v ''u v
Axiom. (ctagged_eqE_eq) We take the following as an axiom:
∀x y, F xF y∀ux, ∀vy, u '' = v ''u = v
Axiom. (pair_tag_prop_1_Subq) We take the following as an axiom:
∀x1 y1 x2 y2, F x1pair_tag x1 y1 = pair_tag x2 y2x1 x2
Axiom. (pair_tag_prop_1) We take the following as an axiom:
∀x1 y1 x2 y2, F x1F x2pair_tag x1 y1 = pair_tag x2 y2x1 = x2
Axiom. (pair_tag_prop_2_Subq) We take the following as an axiom:
∀x1 y1 x2 y2, F y1F x2F y2pair_tag x1 y1 = pair_tag x2 y2y1 y2
Axiom. (pair_tag_prop_2) We take the following as an axiom:
∀x1 y1 x2 y2, F x1F y1F x2F y2pair_tag x1 y1 = pair_tag x2 y2y1 = y2
Axiom. (pair_tag_0) We take the following as an axiom:
∀x, pair_tag x 0 = x
Definition. We define CD_carr to be λz ⇒ exists x, F x /\ exists y, F y /\ z = pair_tag x y of type setprop.
Axiom. (CD_carr_I) We take the following as an axiom:
∀x y, F xF yCD_carr (pair_tag x y)
Axiom. (CD_carr_E) We take the following as an axiom:
∀z, CD_carr z∀p : setprop, (∀x y, F xF yz = pair_tag x yp (pair_tag x y))p z
Axiom. (CD_carr_0ext) We take the following as an axiom:
F 0∀x, F xCD_carr x
Definition. We define CD_proj0 to be λz ⇒ Eps_i (λx ⇒ F x /\ exists y, F y /\ z = pair_tag x y) of type setset.
Definition. We define CD_proj1 to be λz ⇒ Eps_i (λy ⇒ F y /\ z = pair_tag (CD_proj0 z) y) of type setset.
Let proj0 ≝ CD_proj0
Let proj1 ≝ CD_proj1
Let pa : setsetsetpair_tag
Axiom. (CD_proj0_1) We take the following as an axiom:
∀z, CD_carr zF (proj0 z) /\ exists y, F y /\ z = pa (proj0 z) y
Axiom. (CD_proj0_2) We take the following as an axiom:
∀x y, F xF yproj0 (pa x y) = x
Axiom. (CD_proj1_1) We take the following as an axiom:
∀z, CD_carr zF (proj1 z) /\ z = pa (proj0 z) (proj1 z)
Axiom. (CD_proj1_2) We take the following as an axiom:
∀x y, F xF yproj1 (pa x y) = y
Axiom. (CD_proj0R) We take the following as an axiom:
∀z, CD_carr zF (proj0 z)
Axiom. (CD_proj1R) We take the following as an axiom:
∀z, CD_carr zF (proj1 z)
Axiom. (CD_proj0proj1_eta) We take the following as an axiom:
∀z, CD_carr zz = pa (proj0 z) (proj1 z)
Axiom. (CD_proj0proj1_split) We take the following as an axiom:
∀z w, CD_carr zCD_carr wproj0 z = proj0 wproj1 z = proj1 wz = w
Axiom. (CD_proj0_F) We take the following as an axiom:
F 0∀x, F xCD_proj0 x = x
Axiom. (CD_proj1_F) We take the following as an axiom:
F 0∀x, F xCD_proj1 x = 0
Beginning of Section CD_minus_conj
Variable minus : setset
Definition. We define CD_minus to be λz ⇒ pa (- proj0 z) (- proj1 z) of type setset.
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
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
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.
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
Hypothesis F_minus : ∀x, F xF (- x)
Axiom. (CD_minus_CD) We take the following as an axiom:
∀z, CD_carr zCD_carr (:-: z)
Axiom. (CD_minus_proj0) We take the following as an axiom:
∀z, CD_carr zproj0 (:-: z) = - proj0 z
Axiom. (CD_minus_proj1) We take the following as an axiom:
∀z, CD_carr zproj1 (:-: z) = - proj1 z
Variable conj : setset
Hypothesis F_conj : ∀x, F xF (conj x)
Axiom. (CD_conj_CD) We take the following as an axiom:
∀z, CD_carr zCD_carr (z ')
Axiom. (CD_conj_proj0) We take the following as an axiom:
∀z, CD_carr zproj0 (z ') = conj (proj0 z)
Axiom. (CD_conj_proj1) We take the following as an axiom:
∀z, CD_carr zproj1 (z ') = - proj1 z
End of Section CD_minus_conj_clos
Beginning of Section CD_add_clos
Variable add : setsetset
Hypothesis F_add : ∀x y, F xF yF (x + y)
Axiom. (CD_add_CD) We take the following as an axiom:
∀z w, CD_carr zCD_carr wCD_carr (z :+: w)
Axiom. (CD_add_proj0) We take the following as an axiom:
∀z w, CD_carr zCD_carr wproj0 (z :+: w) = proj0 z + proj0 w
Axiom. (CD_add_proj1) We take the following as an axiom:
∀z w, CD_carr zCD_carr wproj1 (z :+: w) = proj1 z + proj1 w
End of Section CD_add_clos
Beginning of Section CD_mul_clos
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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)
Axiom. (CD_mul_CD) We take the following as an axiom:
∀z w, CD_carr zCD_carr wCD_carr (z :*: w)
Axiom. (CD_mul_proj0) We take the following as an axiom:
∀z w, CD_carr zCD_carr wproj0 (z :*: w) = proj0 z * proj0 w + - conj (proj1 w) * proj1 z
Axiom. (CD_mul_proj1) We take the following as an axiom:
∀z w, CD_carr zCD_carr wproj1 (z :*: w) = proj1 w * proj0 z + proj1 z * conj (proj0 w)
End of Section CD_mul_clos
Beginning of Section CD_minus_conj_F
Variable minus : setset
Hypothesis F_0 : F 0
Hypothesis F_minus_0 : - 0 = 0
Axiom. (CD_minus_F_eq) We take the following as an axiom:
∀x, F x:-: x = - x
Variable conj : setset
Axiom. (CD_conj_F_eq) We take the following as an axiom:
∀x, F xx ' = conj x
End of Section CD_minus_conj_F
Beginning of Section CD_add_F
Variable add : setsetset
Hypothesis F_0 : F 0
Hypothesis F_add_0_0 : 0 + 0 = 0
Axiom. (CD_add_F_eq) We take the following as an axiom:
∀x y, F xF yx :+: y = x + y
End of Section CD_add_F
Beginning of Section CD_mul_F
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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
Axiom. (CD_mul_F_eq) We take the following as an axiom:
∀x y, F xF yx :*: y = x * y
End of Section CD_mul_F
Beginning of Section CD_minus_invol
Variable minus : setset
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_minus_invol : ∀x, F x- - x = x
Axiom. (CD_minus_invol) We take the following as an axiom:
∀z, CD_carr z:-: :-: z = z
End of Section CD_minus_invol
Beginning of Section CD_conj_invol
Variable minus : setset
Variable conj : setset
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
Axiom. (CD_conj_invol) We take the following as an axiom:
∀z, CD_carr zz ' ' = z
End of Section CD_conj_invol
Beginning of Section CD_conj_minus
Variable minus : setset
Variable conj : setset
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
Axiom. (CD_conj_minus) We take the following as an axiom:
∀z, CD_carr z(:-: z) ' = :-: (z ')
End of Section CD_conj_minus
Beginning of Section CD_minus_add
Variable minus : setset
Variable add : setsetset
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
Axiom. (CD_minus_add) We take the following as an axiom:
∀z w, CD_carr zCD_carr w:-: (z :+: w) = :-: z :+: :-: w
End of Section CD_minus_add
Beginning of Section CD_conj_add
Variable minus : setset
Variable conj : setset
Variable add : setsetset
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
Axiom. (CD_conj_add) We take the following as an axiom:
∀z w, CD_carr zCD_carr w(z :+: w) ' = z ' :+: w '
End of Section CD_conj_add
Beginning of Section CD_add_com
Variable add : setsetset
Hypothesis F_add_com : ∀x y, F xF yx + y = y + x
Axiom. (CD_add_com) We take the following as an axiom:
∀z w, CD_carr zCD_carr wz :+: w = w :+: z
End of Section CD_add_com
Beginning of Section CD_add_assoc
Variable add : setsetset
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)
Axiom. (CD_add_assoc) We take the following as an axiom:
∀z w u, CD_carr zCD_carr wCD_carr u(z :+: w) :+: u = z :+: (w :+: u)
End of Section CD_add_assoc
Beginning of Section CD_add_0R
Variable add : setsetset
Hypothesis F_0 : F 0
Hypothesis F_add_0R : ∀x, F xx + 0 = x
Axiom. (CD_add_0R) We take the following as an axiom:
∀z, CD_carr zz :+: 0 = z
End of Section CD_add_0R
Beginning of Section CD_add_0L
Variable add : setsetset
Hypothesis F_0 : F 0
Hypothesis F_add_0L : ∀x, F x0 + x = x
Axiom. (CD_add_0L) We take the following as an axiom:
∀z, CD_carr z0 :+: z = z
End of Section CD_add_0L
Beginning of Section CD_add_minus_linv
Variable minus : setset
Variable add : setsetset
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_add_minus_linv : ∀x, F x- x + x = 0
Axiom. (CD_add_minus_linv) We take the following as an axiom:
∀z, CD_carr z:-: z :+: z = 0
End of Section CD_add_minus_linv
Beginning of Section CD_add_minus_rinv
Variable minus : setset
Variable add : setsetset
Hypothesis F_minus : ∀x, F xF (- x)
Hypothesis F_add_minus_rinv : ∀x, F xx + - x = 0
Axiom. (CD_add_minus_rinv) We take the following as an axiom:
∀z, CD_carr zz :+: :-: z = 0
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
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
Axiom. (CD_mul_0R) We take the following as an axiom:
∀z, CD_carr zz :*: 0 = 0
End of Section CD_mul_0R
Beginning of Section CD_mul_0L
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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
Axiom. (CD_mul_0L) We take the following as an axiom:
∀z, CD_carr z0 :*: z = 0
End of Section CD_mul_0L
Beginning of Section CD_mul_1R
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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
Axiom. (CD_mul_1R) We take the following as an axiom:
∀z, CD_carr zz :*: 1 = z
End of Section CD_mul_1R
Beginning of Section CD_mul_1L
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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
Axiom. (CD_mul_1L) We take the following as an axiom:
∀z, CD_carr z1 :*: z = z
End of Section CD_mul_1L
Beginning of Section CD_conj_mul
Variable minus : setset
Variable conj : setset
Variable add : setsetset
Variable mul : setsetset
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)
Axiom. (CD_conj_mul) We take the following as an axiom:
∀z w, CD_carr zCD_carr w(z :*: w) ' = w ' :*: z '
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
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
Axiom. (CD_add_mul_distrR) We take the following as an axiom:
∀z w u, CD_carr zCD_carr wCD_carr u(z :+: w) :*: u = z :*: u :+: w :*: u
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
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
Axiom. (CD_add_mul_distrL) We take the following as an axiom:
∀z w u, CD_carr zCD_carr wCD_carr uz :*: (w :+: u) = z :*: w :+: z :*: u
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
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)
Axiom. (CD_minus_mul_distrR) We take the following as an axiom:
∀z w, CD_carr zCD_carr wz :*: (:-: w) = :-: z :*: w
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
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)
Axiom. (CD_minus_mul_distrL) We take the following as an axiom:
∀z w, CD_carr zCD_carr w(:-: z) :*: w = :-: z :*: w
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
Axiom. (CD_exp_nat_0) We take the following as an axiom:
∀z, z ^ 0 = 1
Axiom. (CD_exp_nat_S) We take the following as an axiom:
∀z n, nat_p nz ^ (ordsucc n) = z :*: z ^ n
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
Axiom. (CD_exp_nat_1) We take the following as an axiom:
∀z, CD_carr zz ^ 1 = z
Axiom. (CD_exp_nat_2) We take the following as an axiom:
∀z, CD_carr zz ^ 2 = z :*: z
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
Axiom. (CD_exp_nat_CD) We take the following as an axiom:
∀z, CD_carr z∀n, nat_p nCD_carr (z ^ n)
End of Section CD_exp_nat
End of Section Alg
Beginning of Section Tags
Variable tagn : set
Hypothesis tagn_nat : nat_p tagn
Hypothesis tagn_1 : 1 tagn
Axiom. (not_TransSet_Sing_tagn) We take the following as an axiom:
Axiom. (not_ordinal_Sing_tagn) We take the following as an axiom:
End of Section Tags
Beginning of Section ExtendedSNo
Let tag : setsetλalpha ⇒ SetAdjoin alpha {1}
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term tag.
Definition. We define ExtendedSNoElt_ to be λn x ⇒ ∀vUnion x, ordinal v \/ exists in, v = {i} of type setsetprop.
Axiom. (extension_SNoElt_mon) We take the following as an axiom:
∀M N, M N∀x, ExtendedSNoElt_ M xExtendedSNoElt_ N x
Axiom. (Sing_nat_fresh_extension) We take the following as an axiom:
∀n, nat_p n1 n∀x, ExtendedSNoElt_ n x∀ux, {n} /:e u
Axiom. (SNo_ExtendedSNoElt_2) We take the following as an axiom:
∀x, SNo xExtendedSNoElt_ 2 x
End of Section ExtendedSNo
Beginning of Section SurComplex
Let tag : setsetλalpha ⇒ SetAdjoin alpha {1}
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term tag.
Axiom. (complex_tag_fresh) We take the following as an axiom:
∀x, SNo x∀ux, {2} /:e u
Definition. We define SNo_pair to be pair_tag {2} of type setsetset.
Axiom. (SNo_pair_0) We take the following as an axiom:
∀x, SNo_pair x 0 = x
Axiom. (SNo_pair_prop_1) We take the following as an axiom:
∀x1 y1 x2 y2, SNo x1SNo x2SNo_pair x1 y1 = SNo_pair x2 y2x1 = x2
Axiom. (SNo_pair_prop_2) We take the following as an axiom:
∀x1 y1 x2 y2, SNo x1SNo y1SNo x2SNo y2SNo_pair x1 y1 = SNo_pair x2 y2y1 = y2
Definition. We define CSNo to be CD_carr {2} SNo of type setprop.
Axiom. (CSNo_I) We take the following as an axiom:
∀x y, SNo xSNo yCSNo (SNo_pair x y)
Axiom. (CSNo_E) We take the following as an axiom:
∀z, CSNo z∀p : setprop, (∀x y, SNo xSNo yz = SNo_pair x yp (SNo_pair x y))p z
Axiom. (SNo_CSNo) We take the following as an axiom:
∀x, SNo xCSNo x
Axiom. (CSNo_0) We take the following as an axiom:
Axiom. (CSNo_1) We take the following as an axiom:
Let ctag : setsetλalpha ⇒ SetAdjoin alpha {2}
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term ctag.
Axiom. (CSNo_ExtendedSNoElt_3) We take the following as an axiom:
∀z, CSNo zExtendedSNoElt_ 3 z
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_SNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_SNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_SNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_SNo.
Notation. We use ^ as an infix operator with priority 342 and which associates to the right corresponding to applying term exp_SNo_nat.
Definition. We define Complex_i to be SNo_pair 0 1 of type set.
Definition. We define CSNo_Re to be CD_proj0 {2} SNo of type setset.
Definition. We define CSNo_Im to be CD_proj1 {2} SNo of type setset.
Let i ≝ Complex_i
Let Re : setsetCSNo_Re
Let Im : setsetCSNo_Im
Let pa : setsetsetSNo_pair
Axiom. (CSNo_Re1) We take the following as an axiom:
∀z, CSNo zSNo (Re z) /\ exists y, SNo y /\ z = pa (Re z) y
Axiom. (CSNo_Re2) We take the following as an axiom:
∀x y, SNo xSNo yRe (pa x y) = x
Axiom. (CSNo_Im1) We take the following as an axiom:
∀z, CSNo zSNo (Im z) /\ z = pa (Re z) (Im z)
Axiom. (CSNo_Im2) We take the following as an axiom:
∀x y, SNo xSNo yIm (pa x y) = y
Axiom. (CSNo_ReR) We take the following as an axiom:
∀z, CSNo zSNo (Re z)
Axiom. (CSNo_ImR) We take the following as an axiom:
∀z, CSNo zSNo (Im z)
Axiom. (CSNo_ReIm) We take the following as an axiom:
∀z, CSNo zz = pa (Re z) (Im z)
Axiom. (CSNo_ReIm_split) We take the following as an axiom:
∀z w, CSNo zCSNo wRe z = Re wIm z = Im wz = w
Definition. We define CSNoLev to be λz ⇒ SNoLev (Re z) :\/: SNoLev (Im z) of type setset.
Axiom. (CSNoLev_ordinal) We take the following as an axiom:
∀z, CSNo zordinal (CSNoLev z)
Let conj : setsetλx ⇒ x
Definition. We define minus_CSNo to be CD_minus {2} SNo minus_SNo of type setset.
Definition. We define conj_CSNo to be CD_conj {2} SNo minus_SNo conj of type setset.
Definition. We define add_CSNo to be CD_add {2} SNo add_SNo of type setsetset.
Definition. We define mul_CSNo to be CD_mul {2} SNo minus_SNo conj add_SNo mul_SNo of type setsetset.
Definition. We define exp_CSNo_nat to be CD_exp_nat {2} SNo minus_SNo conj add_SNo mul_SNo of type setsetset.
Definition. We define abs_sqr_CSNo to be λz ⇒ Re z ^ 2 + Im z ^ 2 of type setset.
Definition. We define recip_CSNo to be λz ⇒ pa (Re z :/: abs_sqr_CSNo z) (- (Im z :/: abs_sqr_CSNo z)) of type setset.
Let plus' ≝ add_CSNo
Let mult' ≝ mul_CSNo
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term minus_CSNo.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term conj_CSNo.
Notation. We use :+: as an infix operator with priority 360 and which associates to the right corresponding to applying term add_CSNo.
Notation. We use :*: as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_CSNo.
Notation. We use :^: as an infix operator with priority 355 and which associates to the right corresponding to applying term exp_CSNo_nat.
Definition. We define div_CSNo to be λz w ⇒ z :*: recip_CSNo w of type setsetset.
Axiom. (CSNo_Complex_i) We take the following as an axiom:
Axiom. (CSNo_minus_CSNo) We take the following as an axiom:
∀z, CSNo zCSNo (minus_CSNo z)
Axiom. (minus_CSNo_CRe) We take the following as an axiom:
∀z, CSNo zRe (:-: z) = - Re z
Axiom. (minus_CSNo_CIm) We take the following as an axiom:
∀z, CSNo zIm (:-: z) = - Im z
Axiom. (CSNo_conj_CSNo) We take the following as an axiom:
∀z, CSNo zCSNo (conj_CSNo z)
Axiom. (conj_CSNo_CRe) We take the following as an axiom:
∀z, CSNo zRe (z ') = Re z
Axiom. (conj_CSNo_CIm) We take the following as an axiom:
∀z, CSNo zIm (z ') = - Im z
Axiom. (CSNo_add_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo wCSNo (add_CSNo z w)
Axiom. (CSNo_add_CSNo_3) We take the following as an axiom:
∀z w v, CSNo zCSNo wCSNo vCSNo (z :+: w :+: v)
Axiom. (add_CSNo_CRe) We take the following as an axiom:
∀z w, CSNo zCSNo wRe (plus' z w) = Re z + Re w
Axiom. (add_CSNo_CIm) We take the following as an axiom:
∀z w, CSNo zCSNo wIm (plus' z w) = Im z + Im w
Axiom. (CSNo_mul_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo wCSNo (z :*: w)
Axiom. (CSNo_mul_CSNo_3) We take the following as an axiom:
∀z w v, CSNo zCSNo wCSNo vCSNo (z :*: w :*: v)
Axiom. (mul_CSNo_CRe) We take the following as an axiom:
∀z w, CSNo zCSNo wRe (mult' z w) = Re z * Re w + - (Im w * Im z)
Axiom. (mul_CSNo_CIm) We take the following as an axiom:
∀z w, CSNo zCSNo wIm (mult' z w) = Im w * Re z + Im z * Re w
Axiom. (SNo_Re) We take the following as an axiom:
∀x, SNo xRe x = x
Axiom. (SNo_Im) We take the following as an axiom:
∀x, SNo xIm x = 0
Axiom. (Re_0) We take the following as an axiom:
Re 0 = 0
Axiom. (Im_0) We take the following as an axiom:
Im 0 = 0
Axiom. (Re_1) We take the following as an axiom:
Re 1 = 1
Axiom. (Im_1) We take the following as an axiom:
Im 1 = 0
Axiom. (Re_i) We take the following as an axiom:
Re i = 0
Axiom. (Im_i) We take the following as an axiom:
Im i = 1
Axiom. (conj_CSNo_id_SNo) We take the following as an axiom:
∀x, SNo xx ' = x
Axiom. (conj_CSNo_0) We take the following as an axiom:
0 ' = 0
Axiom. (conj_CSNo_1) We take the following as an axiom:
1 ' = 1
Axiom. (conj_CSNo_i) We take the following as an axiom:
i ' = :-: i
Axiom. (minus_CSNo_minus_SNo) We take the following as an axiom:
∀x, SNo x:-: x = - x
Axiom. (minus_CSNo_0) We take the following as an axiom:
Axiom. (add_CSNo_add_SNo) We take the following as an axiom:
∀x y, SNo xSNo yx :+: y = x + y
Axiom. (mul_CSNo_mul_SNo) We take the following as an axiom:
∀x y, SNo xSNo yx :*: y = x * y
Axiom. (minus_CSNo_invol) We take the following as an axiom:
∀z, CSNo z:-: :-: z = z
Axiom. (conj_CSNo_invol) We take the following as an axiom:
∀z, CSNo zz ' ' = z
Axiom. (conj_minus_CSNo) We take the following as an axiom:
∀z, CSNo z(:-: z) ' = :-: (z ')
Axiom. (minus_add_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo w:-: (z :+: w) = :-: z :+: :-: w
Axiom. (conj_add_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo w(z :+: w) ' = z ' :+: w '
Axiom. (add_CSNo_com) We take the following as an axiom:
∀z w, CSNo zCSNo wz :+: w = w :+: z
Axiom. (add_CSNo_assoc) We take the following as an axiom:
∀z w v, CSNo zCSNo wCSNo v(z :+: w) :+: v = z :+: (w :+: v)
Axiom. (add_CSNo_0L) We take the following as an axiom:
∀z, CSNo zadd_CSNo 0 z = z
Axiom. (add_CSNo_0R) We take the following as an axiom:
∀z, CSNo zadd_CSNo z 0 = z
Axiom. (add_CSNo_minus_CSNo_linv) We take the following as an axiom:
∀z, CSNo zadd_CSNo (minus_CSNo z) z = 0
Axiom. (add_CSNo_minus_CSNo_rinv) We take the following as an axiom:
∀z, CSNo zadd_CSNo z (minus_CSNo z) = 0
Axiom. (mul_CSNo_0R) We take the following as an axiom:
∀z, CSNo zz :*: 0 = 0
Axiom. (mul_CSNo_0L) We take the following as an axiom:
∀z, CSNo z0 :*: z = 0
Axiom. (mul_CSNo_1R) We take the following as an axiom:
∀z, CSNo zz :*: 1 = z
Axiom. (mul_CSNo_1L) We take the following as an axiom:
∀z, CSNo z1 :*: z = z
Axiom. (conj_mul_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo w(z :*: w) ' = w ' :*: z '
Axiom. (mul_CSNo_distrL) We take the following as an axiom:
∀z w u, CSNo zCSNo wCSNo uz :*: (w :+: u) = z :*: w :+: z :*: u
Axiom. (mul_CSNo_distrR) We take the following as an axiom:
∀z w u, CSNo zCSNo wCSNo u(z :+: w) :*: u = z :*: u :+: w :*: u
Axiom. (minus_mul_CSNo_distrR) We take the following as an axiom:
∀z w, CSNo zCSNo wz :*: (:-: w) = :-: z :*: w
Axiom. (minus_mul_CSNo_distrL) We take the following as an axiom:
∀z w, CSNo zCSNo w(:-: z) :*: w = :-: z :*: w
Axiom. (exp_CSNo_nat_0) We take the following as an axiom:
∀z, z :^: 0 = 1
Axiom. (exp_CSNo_nat_S) We take the following as an axiom:
∀z n, nat_p nz :^: (ordsucc n) = z :*: z :^: n
Axiom. (exp_CSNo_nat_1) We take the following as an axiom:
∀z, CSNo zz :^: 1 = z
Axiom. (exp_CSNo_nat_2) We take the following as an axiom:
∀z, CSNo zz :^: 2 = z :*: z
Axiom. (CSNo_exp_CSNo_nat) We take the following as an axiom:
∀z, CSNo z∀n, nat_p nCSNo (z :^: n)
Axiom. (add_SNo_rotate_4_0312) We take the following as an axiom:
∀x y z w, SNo xSNo ySNo zSNo w(x + y) + (z + w) = (x + w) + (y + z)
Axiom. (mul_CSNo_com) We take the following as an axiom:
∀z w, CSNo zCSNo wz :*: w = w :*: z
Axiom. (mul_CSNo_assoc) We take the following as an axiom:
∀z w v, CSNo zCSNo wCSNo vz :*: (w :*: v) = (z :*: w) :*: v
Axiom. (Complex_i_sqr) We take the following as an axiom:
i :*: i = :-: 1
Axiom. (SNo_abs_sqr_CSNo) We take the following as an axiom:
∀z, CSNo zSNo (abs_sqr_CSNo z)
Axiom. (abs_sqr_CSNo_nonneg) We take the following as an axiom:
∀z, CSNo z0 <= abs_sqr_CSNo z
Axiom. (abs_sqr_CSNo_zero) We take the following as an axiom:
∀z, CSNo zabs_sqr_CSNo z = 0z = 0
Axiom. (CSNo_recip_CSNo) We take the following as an axiom:
∀z, CSNo zCSNo (recip_CSNo z)
Axiom. (CSNo_relative_recip) We take the following as an axiom:
∀z, CSNo z∀u, SNo u(Re z ^ 2 + Im z ^ 2) * u = 1z :*: (u :*: Re z :+: :-: i :*: u :*: Im z) = 1
Axiom. (recip_CSNo_invR) We take the following as an axiom:
∀z, CSNo zz <> 0z :*: recip_CSNo z = 1
Axiom. (recip_CSNo_invL) We take the following as an axiom:
∀z, CSNo zz <> 0recip_CSNo z :*: z = 1
Axiom. (CSNo_div_CSNo) We take the following as an axiom:
∀z w, CSNo zCSNo wCSNo (div_CSNo z w)
Axiom. (mul_div_CSNo_invL) We take the following as an axiom:
∀z w, CSNo zCSNo ww <> 0(div_CSNo z w) :*: w = z
Axiom. (mul_div_CSNo_invR) We take the following as an axiom:
∀z w, CSNo zCSNo ww <> 0w :*: (div_CSNo z w) = z
Axiom. (sqrt_SNo_nonneg_sqr_id) We take the following as an axiom:
∀x, SNo x0 <= xsqrt_SNo_nonneg (x ^ 2) = x
Axiom. (sqrt_SNo_nonneg_mon_strict) We take the following as an axiom:
∀x y, SNo xSNo y0 <= xx < ysqrt_SNo_nonneg x < sqrt_SNo_nonneg y
Axiom. (sqrt_SNo_nonneg_mon) We take the following as an axiom:
∀x y, SNo xSNo y0 <= xx <= ysqrt_SNo_nonneg x <= sqrt_SNo_nonneg y
Axiom. (sqrt_SNo_nonneg_mul_SNo) We take the following as an axiom:
∀x y, SNo xSNo y0 <= x0 <= ysqrt_SNo_nonneg (x * y) = sqrt_SNo_nonneg x * sqrt_SNo_nonneg y
Definition. We define modulus_CSNo to be λz ⇒ sqrt_SNo_nonneg (abs_sqr_CSNo z) of type setset.
Axiom. (SNo_modulus_CSNo) We take the following as an axiom:
∀z, CSNo zSNo (modulus_CSNo z)
Axiom. (modulus_CSNo_nonneg) We take the following as an axiom:
∀z, CSNo z0 <= modulus_CSNo z
Definition. We define sqrt_CSNo to be λz ⇒ if Im z < 0 \/ Im z = 0 /\ Re z < 0 then pa (sqrt_SNo_nonneg (eps_ 1 * (Re z + modulus_CSNo z))) (- sqrt_SNo_nonneg (eps_ 1 * (- Re z + modulus_CSNo z))) else pa (sqrt_SNo_nonneg (eps_ 1 * (Re z + modulus_CSNo z))) (sqrt_SNo_nonneg (eps_ 1 * (- Re z + modulus_CSNo z))) of type setset.
Axiom. (sqrt_CSNo_sqrt) We take the following as an axiom:
∀z, CSNo zsqrt_CSNo z :^: 2 = z
End of Section SurComplex
Beginning of Section Complex
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_CSNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_CSNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_CSNo.
Notation. We use < as an infix operator with priority 490 and no associativity corresponding to applying term SNoLt.
Notation. We use <= as an infix operator with priority 490 and no associativity corresponding to applying term SNoLe.
Let i ≝ Complex_i
Let Re : setsetCSNo_Re
Let Im : setsetCSNo_Im
Let pa : setsetsetSNo_pair
Definition. We define complex to be {pa (u 0) (u 1)|ureal :*: real} of type set.
Axiom. (complex_I) We take the following as an axiom:
∀x yreal, pa x y complex
Axiom. (complex_E) We take the following as an axiom:
∀zcomplex, ∀p : prop, (∀x yreal, z = pa x yp)p
Axiom. (complex_CSNo) We take the following as an axiom:
Axiom. (real_complex) We take the following as an axiom:
Axiom. (complex_0) We take the following as an axiom:
Axiom. (complex_1) We take the following as an axiom:
Axiom. (complex_i) We take the following as an axiom:
Axiom. (complex_Re_eq) We take the following as an axiom:
∀x yreal, Re (pa x y) = x
Axiom. (complex_Im_eq) We take the following as an axiom:
∀x yreal, Im (pa x y) = y
Axiom. (complex_Re_real) We take the following as an axiom:
Axiom. (complex_Im_real) We take the following as an axiom:
Axiom. (complex_ReIm_split) We take the following as an axiom:
∀z wcomplex, Re z = Re wIm z = Im wz = w
Axiom. (complex_minus_CSNo) We take the following as an axiom:
Axiom. (complex_conj_CSNo) We take the following as an axiom:
Axiom. (complex_add_CSNo) We take the following as an axiom:
Axiom. (complex_mul_CSNo) We take the following as an axiom:
Axiom. (real_Re_eq) We take the following as an axiom:
∀xreal, Re x = x
Axiom. (real_Im_eq) We take the following as an axiom:
∀xreal, Im x = 0
Axiom. (mul_i_real_eq) We take the following as an axiom:
∀xreal, i * x = pa 0 x
Axiom. (real_Re_i_eq) We take the following as an axiom:
∀xreal, Re (i * x) = 0
Axiom. (real_Im_i_eq) We take the following as an axiom:
∀xreal, Im (i * x) = x
Axiom. (complex_eta) We take the following as an axiom:
∀zcomplex, z = Re z + i * Im z
Beginning of Section ComplexDiv
Axiom. (complex_recip_CSNo) We take the following as an axiom:
Axiom. (complex_div_CSNo) We take the following as an axiom:
End of Section ComplexDiv
Axiom. (complex_real_set_eq) We take the following as an axiom:
End of Section Complex
Beginning of Section SurQuaternions
Axiom. (quaternion_tag_fresh) We take the following as an axiom:
∀z, CSNo z∀uz, {3} /:e u
Definition. We define CSNo_pair to be pair_tag {3} of type setsetset.
Axiom. (CSNo_pair_0) We take the following as an axiom:
∀x, CSNo_pair x 0 = x
Axiom. (CSNo_pair_prop_1) We take the following as an axiom:
∀x1 y1 x2 y2, CSNo x1CSNo x2CSNo_pair x1 y1 = CSNo_pair x2 y2x1 = x2
Axiom. (CSNo_pair_prop_2) We take the following as an axiom:
∀x1 y1 x2 y2, CSNo x1CSNo y1CSNo x2CSNo y2CSNo_pair x1 y1 = CSNo_pair x2 y2y1 = y2
Definition. We define HSNo to be CD_carr {3} CSNo of type setprop.
Axiom. (HSNo_I) We take the following as an axiom:
∀x y, CSNo xCSNo yHSNo (CSNo_pair x y)
Axiom. (HSNo_E) We take the following as an axiom:
∀z, HSNo z∀p : setprop, (∀x y, CSNo xCSNo yz = CSNo_pair x yp (CSNo_pair x y))p z
Axiom. (CSNo_HSNo) We take the following as an axiom:
∀x, CSNo xHSNo x
Axiom. (HSNo_0) We take the following as an axiom:
Axiom. (HSNo_1) We take the following as an axiom:
Let ctag : setsetλalpha ⇒ SetAdjoin alpha {3}
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term ctag.
Axiom. (HSNo_ExtendedSNoElt_4) We take the following as an axiom:
∀z, HSNo zExtendedSNoElt_ 4 z
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_CSNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_CSNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_CSNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_CSNo.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term conj_CSNo.
Let i ≝ Complex_i
Definition. We define Quaternion_j to be CSNo_pair 0 1 of type set.
Definition. We define Quaternion_k to be CSNo_pair 0 i of type set.
Let j ≝ Quaternion_j
Let k ≝ Quaternion_k
Definition. We define HSNo_proj0 to be CD_proj0 {3} CSNo of type setset.
Definition. We define HSNo_proj1 to be CD_proj1 {3} CSNo of type setset.
Let p0 : setsetHSNo_proj0
Let p1 : setsetHSNo_proj1
Let pa : setsetsetCSNo_pair
Axiom. (HSNo_proj0_1) We take the following as an axiom:
∀z, HSNo zCSNo (p0 z) /\ exists y, CSNo y /\ z = pa (p0 z) y
Axiom. (HSNo_proj0_2) We take the following as an axiom:
∀x y, CSNo xCSNo yp0 (pa x y) = x
Axiom. (HSNo_proj1_1) We take the following as an axiom:
∀z, HSNo zCSNo (p1 z) /\ z = pa (p0 z) (p1 z)
Axiom. (HSNo_proj1_2) We take the following as an axiom:
∀x y, CSNo xCSNo yp1 (pa x y) = y
Axiom. (HSNo_proj0R) We take the following as an axiom:
∀z, HSNo zCSNo (p0 z)
Axiom. (HSNo_proj1R) We take the following as an axiom:
∀z, HSNo zCSNo (p1 z)
Axiom. (HSNo_proj0p1) We take the following as an axiom:
∀z, HSNo zz = pa (p0 z) (p1 z)
Axiom. (HSNo_proj0proj1_split) We take the following as an axiom:
∀z w, HSNo zHSNo wp0 z = p0 wp1 z = p1 wz = w
Definition. We define HSNoLev to be λz ⇒ CSNoLev (p0 z) :\/: CSNoLev (p1 z) of type setset.
Axiom. (HSNoLev_ordinal) We take the following as an axiom:
∀z, HSNo zordinal (HSNoLev z)
Definition. We define minus_HSNo to be CD_minus {3} CSNo minus_CSNo of type setset.
Definition. We define conj_HSNo to be CD_conj {3} CSNo minus_CSNo conj_CSNo of type setset.
Definition. We define add_HSNo to be CD_add {3} CSNo add_CSNo of type setsetset.
Definition. We define mul_HSNo to be CD_mul {3} CSNo minus_CSNo conj_CSNo add_CSNo mul_CSNo of type setsetset.
Definition. We define exp_HSNo_nat to be CD_exp_nat {3} CSNo minus_CSNo conj_CSNo add_CSNo mul_CSNo of type setsetset.
Let plus' ≝ add_HSNo
Let mult' ≝ mul_HSNo
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term minus_HSNo.
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term conj_HSNo.
Notation. We use :+: as an infix operator with priority 360 and which associates to the right corresponding to applying term add_HSNo.
Notation. We use :*: as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_HSNo.
Notation. We use :^: as an infix operator with priority 355 and which associates to the right corresponding to applying term exp_HSNo_nat.
Axiom. (HSNo_Complex_i) We take the following as an axiom:
Axiom. (HSNo_Quaternion_j) We take the following as an axiom:
Axiom. (HSNo_Quaternion_k) We take the following as an axiom:
Axiom. (HSNo_minus_HSNo) We take the following as an axiom:
∀z, HSNo zHSNo (minus_HSNo z)
Axiom. (minus_HSNo_proj0) We take the following as an axiom:
∀z, HSNo zp0 (:-: z) = - p0 z
Axiom. (minus_HSNo_proj1) We take the following as an axiom:
∀z, HSNo zp1 (:-: z) = - p1 z
Axiom. (HSNo_conj_HSNo) We take the following as an axiom:
∀z, HSNo zHSNo (conj_HSNo z)
Axiom. (conj_HSNo_proj0) We take the following as an axiom:
∀z, HSNo zp0 (z '') = (p0 z) '
Axiom. (conj_HSNo_proj1) We take the following as an axiom:
∀z, HSNo zp1 (z '') = - p1 z
Axiom. (HSNo_add_HSNo) We take the following as an axiom:
∀z w, HSNo zHSNo wHSNo (add_HSNo z w)
Axiom. (add_HSNo_proj0) We take the following as an axiom:
∀z w, HSNo zHSNo wp0 (plus' z w) = p0 z + p0 w
Axiom. (add_HSNo_proj1) We take the following as an axiom:
∀z w, HSNo zHSNo wp1 (plus' z w) = p1 z + p1 w
Axiom. (HSNo_mul_HSNo) We take the following as an axiom:
∀z w, HSNo zHSNo wHSNo (z :*: w)
Axiom. (mul_HSNo_proj0) We take the following as an axiom:
∀z w, HSNo zHSNo wp0 (mult' z w) = p0 z * p0 w + - (p1 w ' * p1 z)
Axiom. (mul_HSNo_proj1) We take the following as an axiom:
∀z w, HSNo zHSNo wp1 (mult' z w) = p1 w * p0 z + p1 z * p0 w '
Axiom. (CSNo_HSNo_proj0) We take the following as an axiom:
∀x, CSNo xp0 x = x
Axiom. (CSNo_HSNo_proj1) We take the following as an axiom:
∀x, CSNo xp1 x = 0
Axiom. (HSNo_p0_0) We take the following as an axiom:
p0 0 = 0
Axiom. (HSNo_p1_0) We take the following as an axiom:
p1 0 = 0
Axiom. (HSNo_p0_1) We take the following as an axiom:
p0 1 = 1
Axiom. (HSNo_p1_1) We take the following as an axiom:
p1 1 = 0
Axiom. (HSNo_p0_i) We take the following as an axiom:
p0 i = i
Axiom. (HSNo_p1_i) We take the following as an axiom:
p1 i = 0
Axiom. (HSNo_p0_j) We take the following as an axiom:
p0 j = 0
Axiom. (HSNo_p1_j) We take the following as an axiom:
p1 j = 1
Axiom. (HSNo_p0_k) We take the following as an axiom:
p0 k = 0
Axiom. (HSNo_p1_k) We take the following as an axiom:
p1 k = i
Axiom. (minus_HSNo_minus_CSNo) We take the following as an axiom:
∀x, CSNo x:-: x = - x
Axiom. (minus_HSNo_0) We take the following as an axiom:
Axiom. (conj_HSNo_conj_CSNo) We take the following as an axiom:
∀x, CSNo xx '' = x '
Axiom. (conj_HSNo_id_SNo) We take the following as an axiom:
∀x, SNo xx '' = x
Axiom. (conj_HSNo_0) We take the following as an axiom:
Axiom. (conj_HSNo_1) We take the following as an axiom:
Axiom. (add_HSNo_add_CSNo) We take the following as an axiom:
∀x y, CSNo xCSNo yx :+: y = x + y
Axiom. (mul_HSNo_mul_CSNo) We take the following as an axiom:
∀x y, CSNo xCSNo yx :*: y = x * y
Axiom. (minus_HSNo_invol) We take the following as an axiom:
∀z, HSNo z:-: :-: z = z
Axiom. (conj_HSNo_invol) We take the following as an axiom:
∀z, HSNo zz '' '' = z
Axiom. (conj_minus_HSNo) We take the following as an axiom:
∀z, HSNo z(:-: z) '' = :-: (z '')
Axiom. (minus_add_HSNo) We take the following as an axiom:
∀z w, HSNo zHSNo w:-: (z :+: w) = :-: z :+: :-: w
Axiom. (conj_add_HSNo) We take the following as an axiom:
∀z w, HSNo zHSNo w(z :+: w) '' = z '' :+: w ''
Axiom. (add_HSNo_com) We take the following as an axiom:
∀z w, HSNo zHSNo wz :+: w = w :+: z
Axiom. (add_HSNo_assoc) We take the following as an axiom:
∀z w v, HSNo zHSNo wHSNo v(z :+: w) :+: v = z :+: (w :+: v)
Axiom. (add_HSNo_0L) We take the following as an axiom:
∀z, HSNo zadd_HSNo 0 z = z
Axiom. (add_HSNo_0R) We take the following as an axiom:
∀z, HSNo zadd_HSNo z 0 = z
Axiom. (add_HSNo_minus_HSNo_linv) We take the following as an axiom:
∀z, HSNo zadd_HSNo (minus_HSNo z) z = 0
Axiom. (add_HSNo_minus_HSNo_rinv) We take the following as an axiom:
∀z, HSNo zadd_HSNo z (minus_HSNo z) = 0
Axiom. (mul_HSNo_0R) We take the following as an axiom:
∀z, HSNo zz :*: 0 = 0
Axiom. (mul_HSNo_0L) We take the following as an axiom:
∀z, HSNo z0 :*: z = 0
Axiom. (mul_HSNo_1R) We take the following as an axiom:
∀z, HSNo zz :*: 1 = z
Axiom. (mul_HSNo_1L) We take the following as an axiom:
∀z, HSNo z1 :*: z = z
Axiom. (conj_mul_HSNo) We take the following as an axiom:
∀z w, HSNo zHSNo w(z :*: w) '' = w '' :*: z ''
Axiom. (mul_HSNo_distrL) We take the following as an axiom:
∀z w u, HSNo zHSNo wHSNo uz :*: (w :+: u) = z :*: w :+: z :*: u
Axiom. (mul_HSNo_distrR) We take the following as an axiom:
∀z w u, HSNo zHSNo wHSNo u(z :+: w) :*: u = z :*: u :+: w :*: u
Axiom. (minus_mul_HSNo_distrR) We take the following as an axiom:
∀z w, HSNo zHSNo wz :*: (:-: w) = :-: z :*: w
Axiom. (minus_mul_HSNo_distrL) We take the following as an axiom:
∀z w, HSNo zHSNo w(:-: z) :*: w = :-: z :*: w
Axiom. (exp_HSNo_nat_0) We take the following as an axiom:
∀z, z :^: 0 = 1
Axiom. (exp_HSNo_nat_S) We take the following as an axiom:
∀z n, nat_p nz :^: (ordsucc n) = z :*: z :^: n
Axiom. (exp_HSNo_nat_1) We take the following as an axiom:
∀z, HSNo zz :^: 1 = z
Axiom. (exp_HSNo_nat_2) We take the following as an axiom:
∀z, HSNo zz :^: 2 = z :*: z
Axiom. (HSNo_exp_HSNo_nat) We take the following as an axiom:
∀z, HSNo z∀n, nat_p nHSNo (z :^: n)
Axiom. (add_CSNo_com_3b_1_2) We take the following as an axiom:
∀x y z, CSNo xCSNo yCSNo z(x + y) + z = (x + z) + y
Axiom. (add_CSNo_com_4_inner_mid) We take the following as an axiom:
∀x y z w, CSNo xCSNo yCSNo zCSNo w(x + y) + (z + w) = (x + z) + (y + w)
Axiom. (add_CSNo_rotate_4_0312) We take the following as an axiom:
∀x y z w, CSNo xCSNo yCSNo zCSNo w(x + y) + (z + w) = (x + w) + (y + z)
Axiom. (Quaternion_i_sqr) We take the following as an axiom:
i :*: i = :-: 1
Axiom. (Quaternion_j_sqr) We take the following as an axiom:
j :*: j = :-: 1
Axiom. (Quaternion_k_sqr) We take the following as an axiom:
k :*: k = :-: 1
Axiom. (Quaternion_i_j) We take the following as an axiom:
i :*: j = k
Axiom. (Quaternion_j_k) We take the following as an axiom:
j :*: k = i
Axiom. (Quaternion_k_i) We take the following as an axiom:
k :*: i = j
Axiom. (Quaternion_j_i) We take the following as an axiom:
j :*: i = :-: k
Axiom. (Quaternion_k_j) We take the following as an axiom:
k :*: j = :-: i
Axiom. (Quaternion_i_k) We take the following as an axiom:
i :*: k = :-: j
Axiom. (add_CSNo_rotate_3_1) We take the following as an axiom:
∀x y z, CSNo xCSNo yCSNo zx + y + z = z + x + y
Axiom. (mul_CSNo_rotate_3_1) We take the following as an axiom:
∀x y z, CSNo xCSNo yCSNo zx * y * z = z * x * y
Axiom. (mul_HSNo_assoc) We take the following as an axiom:
∀z w v, HSNo zHSNo wHSNo vz :*: (w :*: v) = (z :*: w) :*: v
Axiom. (conj_HSNo_i) We take the following as an axiom:
i '' = :-: i
Axiom. (conj_HSNo_j) We take the following as an axiom:
j '' = :-: j
Axiom. (conj_HSNo_k) We take the following as an axiom:
k '' = :-: k
End of Section SurQuaternions
Beginning of Section Quaternions
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_HSNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_HSNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_HSNo.
Let i ≝ Complex_i
Let j ≝ Quaternion_j
Let k ≝ Quaternion_k
Let p0 : setsetHSNo_proj0
Let p1 : setsetHSNo_proj1
Let pa : setsetsetCSNo_pair
Definition. We define quaternion to be {pa (u 0) (u 1)|ucomplex :*: complex} of type set.
Axiom. (quaternion_I) We take the following as an axiom:
Axiom. (quaternion_E) We take the following as an axiom:
∀zquaternion, ∀p : prop, (∀x ycomplex, z = pa x yp)p
Axiom. (quaternion_HSNo) We take the following as an axiom:
Axiom. (complex_quaternion) We take the following as an axiom:
Axiom. (quaternion_0) We take the following as an axiom:
Axiom. (quaternion_1) We take the following as an axiom:
Axiom. (quaternion_i) We take the following as an axiom:
Axiom. (quaternion_j) We take the following as an axiom:
Axiom. (quaternion_k) We take the following as an axiom:
Axiom. (quaternion_p0_eq) We take the following as an axiom:
∀x ycomplex, p0 (pa x y) = x
Axiom. (quaternion_p1_eq) We take the following as an axiom:
∀x ycomplex, p1 (pa x y) = y
Axiom. (quaternion_p0_complex) We take the following as an axiom:
Axiom. (quaternion_p1_complex) We take the following as an axiom:
Axiom. (quaternion_proj0proj1_split) We take the following as an axiom:
∀z wquaternion, p0 z = p0 wp1 z = p1 wz = w
Axiom. (quaternion_minus_HSNo) We take the following as an axiom:
Axiom. (quaternion_conj_HSNo) We take the following as an axiom:
Axiom. (quaternion_add_HSNo) We take the following as an axiom:
Axiom. (quaternion_mul_HSNo) We take the following as an axiom:
Axiom. (complex_p0_eq) We take the following as an axiom:
∀xcomplex, p0 x = x
Axiom. (complex_p1_eq) We take the following as an axiom:
∀xcomplex, p1 x = 0
End of Section Quaternions
Beginning of Section SurOctonions
Axiom. (octonion_tag_fresh) We take the following as an axiom:
∀x, HSNo x∀ux, {4} /:e u
Definition. We define HSNo_pair to be pair_tag {4} of type setsetset.
Axiom. (HSNo_pair_0) We take the following as an axiom:
∀x, HSNo_pair x 0 = x
Axiom. (HSNo_pair_prop_1) We take the following as an axiom:
∀x1 y1 x2 y2, HSNo x1HSNo x2HSNo_pair x1 y1 = HSNo_pair x2 y2x1 = x2
Axiom. (HSNo_pair_prop_2) We take the following as an axiom:
∀x1 y1 x2 y2, HSNo x1HSNo y1HSNo x2HSNo y2HSNo_pair x1 y1 = HSNo_pair x2 y2y1 = y2
Definition. We define OSNo to be CD_carr {4} HSNo of type setprop.
Axiom. (OSNo_I) We take the following as an axiom:
∀x y, HSNo xHSNo yOSNo (HSNo_pair x y)
Axiom. (OSNo_E) We take the following as an axiom:
∀z, OSNo z∀p : setprop, (∀x y, HSNo xHSNo yz = HSNo_pair x yp (HSNo_pair x y))p z
Axiom. (HSNo_OSNo) We take the following as an axiom:
∀x, HSNo xOSNo x
Axiom. (OSNo_0) We take the following as an axiom:
Axiom. (OSNo_1) We take the following as an axiom:
Let ctag : setsetλalpha ⇒ SetAdjoin alpha {4}
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term ctag.
Axiom. (OSNo_ExtendedSNoElt_5) We take the following as an axiom:
∀z, OSNo zExtendedSNoElt_ 5 z
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_HSNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_HSNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_HSNo.
Notation. We use :/: as an infix operator with priority 353 and no associativity corresponding to applying term div_HSNo.
Notation. We use ' as a postfix operator with priority 100 corresponding to applying term conj_HSNo.
Let i ≝ Complex_i
Let j ≝ Quaternion_j
Let k ≝ Quaternion_k
Definition. We define OSNo_proj0 to be CD_proj0 {4} HSNo of type setset.
Definition. We define OSNo_proj1 to be CD_proj1 {4} HSNo of type setset.
Let p0 : setsetOSNo_proj0
Let p1 : setsetOSNo_proj1
Let pa : setsetsetHSNo_pair
Axiom. (OSNo_proj0_1) We take the following as an axiom:
∀z, OSNo zHSNo (p0 z) /\ exists y, HSNo y /\ z = pa (p0 z) y
Axiom. (OSNo_proj0_2) We take the following as an axiom:
∀x y, HSNo xHSNo yp0 (pa x y) = x
Axiom. (OSNo_proj1_1) We take the following as an axiom:
∀z, OSNo zHSNo (p1 z) /\ z = pa (p0 z) (p1 z)
Axiom. (OSNo_proj1_2) We take the following as an axiom:
∀x y, HSNo xHSNo yp1 (pa x y) = y
Axiom. (OSNo_proj0R) We take the following as an axiom:
∀z, OSNo zHSNo (p0 z)
Axiom. (OSNo_proj1R) We take the following as an axiom:
∀z, OSNo zHSNo (p1 z)
Axiom. (OSNo_proj0p1) We take the following as an axiom:
∀z, OSNo zz = pa (p0 z) (p1 z)
Axiom. (OSNo_proj0proj1_split) We take the following as an axiom:
∀z w, OSNo zOSNo wp0 z = p0 wp1 z = p1 wz = w
Definition. We define OSNoLev to be λz ⇒ HSNoLev (p0 z) :\/: HSNoLev (p1 z) of type setset.
Axiom. (OSNoLev_ordinal) We take the following as an axiom:
∀z, OSNo zordinal (OSNoLev z)
Definition. We define minus_OSNo to be CD_minus {4} HSNo minus_HSNo of type setset.
Definition. We define conj_OSNo to be CD_conj {4} HSNo minus_HSNo conj_HSNo of type setset.
Definition. We define add_OSNo to be CD_add {4} HSNo add_HSNo of type setsetset.
Definition. We define mul_OSNo to be CD_mul {4} HSNo minus_HSNo conj_HSNo add_HSNo mul_HSNo of type setsetset.
Definition. We define exp_OSNo_nat to be CD_exp_nat {4} HSNo minus_HSNo conj_HSNo add_HSNo mul_HSNo of type setsetset.
Let plus' ≝ add_OSNo
Let mult' ≝ mul_OSNo
Notation. We use :-: as a prefix operator with priority 358 corresponding to applying term minus_OSNo.
Notation. We use '' as a postfix operator with priority 100 corresponding to applying term conj_OSNo.
Notation. We use :+: as an infix operator with priority 360 and which associates to the right corresponding to applying term add_OSNo.
Notation. We use :*: as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_OSNo.
Notation. We use :^: as an infix operator with priority 355 and which associates to the right corresponding to applying term exp_OSNo_nat.
Axiom. (OSNo_minus_OSNo) We take the following as an axiom:
∀z, OSNo zOSNo (minus_OSNo z)
Axiom. (minus_OSNo_proj0) We take the following as an axiom:
∀z, OSNo zp0 (:-: z) = - p0 z
Axiom. (minus_OSNo_proj1) We take the following as an axiom:
∀z, OSNo zp1 (:-: z) = - p1 z
Axiom. (OSNo_conj_OSNo) We take the following as an axiom:
∀z, OSNo zOSNo (conj_OSNo z)
Axiom. (conj_OSNo_proj0) We take the following as an axiom:
∀z, OSNo zp0 (z '') = (p0 z) '
Axiom. (conj_OSNo_proj1) We take the following as an axiom:
∀z, OSNo zp1 (z '') = - p1 z
Axiom. (OSNo_add_OSNo) We take the following as an axiom:
∀z w, OSNo zOSNo wOSNo (add_OSNo z w)
Axiom. (add_OSNo_proj0) We take the following as an axiom:
∀z w, OSNo zOSNo wp0 (plus' z w) = p0 z + p0 w
Axiom. (add_OSNo_proj1) We take the following as an axiom:
∀z w, OSNo zOSNo wp1 (plus' z w) = p1 z + p1 w
Axiom. (OSNo_mul_OSNo) We take the following as an axiom:
∀z w, OSNo zOSNo wOSNo (z :*: w)
Axiom. (mul_OSNo_proj0) We take the following as an axiom:
∀z w, OSNo zOSNo wp0 (mult' z w) = p0 z * p0 w + - (p1 w ' * p1 z)
Axiom. (mul_OSNo_proj1) We take the following as an axiom:
∀z w, OSNo zOSNo wp1 (mult' z w) = p1 w * p0 z + p1 z * p0 w '
Axiom. (HSNo_OSNo_proj0) We take the following as an axiom:
∀x, HSNo xp0 x = x
Axiom. (HSNo_OSNo_proj1) We take the following as an axiom:
∀x, HSNo xp1 x = 0
Axiom. (OSNo_p0_0) We take the following as an axiom:
p0 0 = 0
Axiom. (OSNo_p1_0) We take the following as an axiom:
p1 0 = 0
Axiom. (OSNo_p0_1) We take the following as an axiom:
p0 1 = 1
Axiom. (OSNo_p1_1) We take the following as an axiom:
p1 1 = 0
Axiom. (OSNo_p0_i) We take the following as an axiom:
p0 i = i
Axiom. (OSNo_p1_i) We take the following as an axiom:
p1 i = 0
Axiom. (OSNo_p0_j) We take the following as an axiom:
p0 j = j
Axiom. (OSNo_p1_j) We take the following as an axiom:
p1 j = 0
Axiom. (OSNo_p0_k) We take the following as an axiom:
p0 k = k
Axiom. (OSNo_p1_k) We take the following as an axiom:
p1 k = 0
Axiom. (minus_OSNo_minus_HSNo) We take the following as an axiom:
∀x, HSNo x:-: x = - x
Axiom. (minus_OSNo_0) We take the following as an axiom:
Axiom. (conj_OSNo_conj_HSNo) We take the following as an axiom:
∀x, HSNo xx '' = x '
Axiom. (conj_OSNo_0) We take the following as an axiom:
Axiom. (conj_OSNo_1) We take the following as an axiom:
Axiom. (add_OSNo_add_HSNo) We take the following as an axiom:
∀x y, HSNo xHSNo yx :+: y = x + y
Axiom. (mul_OSNo_mul_HSNo) We take the following as an axiom:
∀x y, HSNo xHSNo yx :*: y = x * y
Axiom. (minus_OSNo_invol) We take the following as an axiom:
∀z, OSNo z:-: :-: z = z
Axiom. (conj_OSNo_invol) We take the following as an axiom:
∀z, OSNo zz '' '' = z
Axiom. (conj_minus_OSNo) We take the following as an axiom:
∀z, OSNo z(:-: z) '' = :-: (z '')
Axiom. (minus_add_OSNo) We take the following as an axiom:
∀z w, OSNo zOSNo w:-: (z :+: w) = :-: z :+: :-: w
Axiom. (conj_add_OSNo) We take the following as an axiom:
∀z w, OSNo zOSNo w(z :+: w) '' = z '' :+: w ''
Axiom. (add_OSNo_com) We take the following as an axiom:
∀z w, OSNo zOSNo wz :+: w = w :+: z
Axiom. (add_OSNo_assoc) We take the following as an axiom:
∀z w v, OSNo zOSNo wOSNo v(z :+: w) :+: v = z :+: (w :+: v)
Axiom. (add_OSNo_0L) We take the following as an axiom:
∀z, OSNo zadd_OSNo 0 z = z
Axiom. (add_OSNo_0R) We take the following as an axiom:
∀z, OSNo zadd_OSNo z 0 = z
Axiom. (add_OSNo_minus_OSNo_linv) We take the following as an axiom:
∀z, OSNo zadd_OSNo (minus_OSNo z) z = 0
Axiom. (add_OSNo_minus_OSNo_rinv) We take the following as an axiom:
∀z, OSNo zadd_OSNo z (minus_OSNo z) = 0
Axiom. (mul_OSNo_0R) We take the following as an axiom:
∀z, OSNo zz :*: 0 = 0
Axiom. (mul_OSNo_0L) We take the following as an axiom:
∀z, OSNo z0 :*: z = 0
Axiom. (mul_OSNo_1R) We take the following as an axiom:
∀z, OSNo zz :*: 1 = z
Axiom. (mul_OSNo_1L) We take the following as an axiom:
∀z, OSNo z1 :*: z = z
Axiom. (conj_mul_OSNo) We take the following as an axiom:
∀z w, OSNo zOSNo w(z :*: w) '' = w '' :*: z ''
Axiom. (mul_OSNo_distrL) We take the following as an axiom:
∀z w u, OSNo zOSNo wOSNo uz :*: (w :+: u) = z :*: w :+: z :*: u
Axiom. (mul_OSNo_distrR) We take the following as an axiom:
∀z w u, OSNo zOSNo wOSNo u(z :+: w) :*: u = z :*: u :+: w :*: u
Axiom. (minus_mul_OSNo_distrR) We take the following as an axiom:
∀z w, OSNo zOSNo wz :*: (:-: w) = :-: z :*: w
Axiom. (minus_mul_OSNo_distrL) We take the following as an axiom:
∀z w, OSNo zOSNo w(:-: z) :*: w = :-: z :*: w
Axiom. (exp_OSNo_nat_0) We take the following as an axiom:
∀z, z :^: 0 = 1
Axiom. (exp_OSNo_nat_S) We take the following as an axiom:
∀z n, nat_p nz :^: (ordsucc n) = z :*: z :^: n
Axiom. (exp_OSNo_nat_1) We take the following as an axiom:
∀z, OSNo zz :^: 1 = z
Axiom. (exp_OSNo_nat_2) We take the following as an axiom:
∀z, OSNo zz :^: 2 = z :*: z
Axiom. (OSNo_exp_OSNo_nat) We take the following as an axiom:
∀z, OSNo z∀n, nat_p nOSNo (z :^: n)
Axiom. (add_HSNo_com_3b_1_2) We take the following as an axiom:
∀x y z, HSNo xHSNo yHSNo z(x + y) + z = (x + z) + y
Axiom. (add_HSNo_com_4_inner_mid) We take the following as an axiom:
∀x y z w, HSNo xHSNo yHSNo zHSNo w(x + y) + (z + w) = (x + z) + (y + w)
Axiom. (add_HSNo_rotate_4_0312) We take the following as an axiom:
∀x y z w, HSNo xHSNo yHSNo zHSNo w(x + y) + (z + w) = (x + w) + (y + z)
Definition. We define Octonion_i0 to be pa 0 1 of type set.
Definition. We define Octonion_i3 to be pa 0 (- Complex_i) of type set.
Definition. We define Octonion_i5 to be pa 0 (- Quaternion_k) of type set.
Definition. We define Octonion_i6 to be pa 0 (- Quaternion_j) of type set.
Let i0 ≝ Octonion_i0
Let i1 ≝ Complex_i
Let i2 ≝ Quaternion_j
Let i3 ≝ Octonion_i3
Let i4 ≝ Quaternion_k
Let i5 ≝ Octonion_i5
Let i6 ≝ Octonion_i6
Axiom. (OSNo_Complex_i) We take the following as an axiom:
Axiom. (OSNo_Quaternion_j) We take the following as an axiom:
Axiom. (OSNo_Quaternion_k) We take the following as an axiom:
Axiom. (OSNo_Octonion_i0) We take the following as an axiom:
OSNo i0
Axiom. (OSNo_Octonion_i3) We take the following as an axiom:
OSNo i3
Axiom. (OSNo_Octonion_i5) We take the following as an axiom:
OSNo i5
Axiom. (OSNo_Octonion_i6) We take the following as an axiom:
OSNo i6
Axiom. (OSNo_p0_i0) We take the following as an axiom:
p0 i0 = 0
Axiom. (OSNo_p1_i0) We take the following as an axiom:
p1 i0 = 1
Axiom. (OSNo_p0_i3) We take the following as an axiom:
p0 i3 = 0
Axiom. (OSNo_p1_i3) We take the following as an axiom:
p1 i3 = - i
Axiom. (OSNo_p0_i5) We take the following as an axiom:
p0 i5 = 0
Axiom. (OSNo_p1_i5) We take the following as an axiom:
p1 i5 = - k
Axiom. (OSNo_p0_i6) We take the following as an axiom:
p0 i6 = 0
Axiom. (OSNo_p1_i6) We take the following as an axiom:
p1 i6 = - j
Axiom. (Octonion_i1_sqr) We take the following as an axiom:
i1 :*: i1 = :-: 1
Axiom. (Octonion_i2_sqr) We take the following as an axiom:
i2 :*: i2 = :-: 1
Axiom. (Octonion_i4_sqr) We take the following as an axiom:
i4 :*: i4 = :-: 1
Axiom. (Octonion_i0_sqr) We take the following as an axiom:
i0 :*: i0 = :-: 1
Axiom. (Octonion_i3_sqr) We take the following as an axiom:
i3 :*: i3 = :-: 1
Axiom. (Octonion_i5_sqr) We take the following as an axiom:
i5 :*: i5 = :-: 1
Axiom. (Octonion_i6_sqr) We take the following as an axiom:
i6 :*: i6 = :-: 1
Axiom. (Octonion_i1_i2) We take the following as an axiom:
i1 :*: i2 = i4
Axiom. (Octonion_i2_i1) We take the following as an axiom:
i2 :*: i1 = :-: i4
Axiom. (Octonion_i2_i4) We take the following as an axiom:
i2 :*: i4 = i1
Axiom. (Octonion_i4_i2) We take the following as an axiom:
i4 :*: i2 = :-: i1
Axiom. (Octonion_i4_i1) We take the following as an axiom:
i4 :*: i1 = i2
Axiom. (Octonion_i1_i4) We take the following as an axiom:
i1 :*: i4 = :-: i2
Axiom. (Octonion_i2_i3) We take the following as an axiom:
i2 :*: i3 = i5
Axiom. (Octonion_i3_i2) We take the following as an axiom:
i3 :*: i2 = :-: i5
Axiom. (Octonion_i3_i5) We take the following as an axiom:
i3 :*: i5 = i2
Axiom. (Octonion_i5_i3) We take the following as an axiom:
i5 :*: i3 = :-: i2
Axiom. (Octonion_i5_i2) We take the following as an axiom:
i5 :*: i2 = i3
Axiom. (Octonion_i2_i5) We take the following as an axiom:
i2 :*: i5 = :-: i3
Axiom. (Octonion_i3_i4) We take the following as an axiom:
i3 :*: i4 = i6
Axiom. (Octonion_i4_i3) We take the following as an axiom:
i4 :*: i3 = :-: i6
Axiom. (Octonion_i4_i6) We take the following as an axiom:
i4 :*: i6 = i3
Axiom. (Octonion_i6_i4) We take the following as an axiom:
i6 :*: i4 = :-: i3
Axiom. (Octonion_i6_i3) We take the following as an axiom:
i6 :*: i3 = i4
Axiom. (Octonion_i3_i6) We take the following as an axiom:
i3 :*: i6 = :-: i4
Axiom. (Octonion_i4_i5) We take the following as an axiom:
i4 :*: i5 = i0
Axiom. (Octonion_i5_i4) We take the following as an axiom:
i5 :*: i4 = :-: i0
Axiom. (Octonion_i5_i0) We take the following as an axiom:
i5 :*: i0 = i4
Axiom. (Octonion_i0_i5) We take the following as an axiom:
i0 :*: i5 = :-: i4
Axiom. (Octonion_i0_i4) We take the following as an axiom:
i0 :*: i4 = i5
Axiom. (Octonion_i4_i0) We take the following as an axiom:
i4 :*: i0 = :-: i5
Axiom. (Octonion_i5_i6) We take the following as an axiom:
i5 :*: i6 = i1
Axiom. (Octonion_i6_i5) We take the following as an axiom:
i6 :*: i5 = :-: i1
Axiom. (Octonion_i6_i1) We take the following as an axiom:
i6 :*: i1 = i5
Axiom. (Octonion_i1_i6) We take the following as an axiom:
i1 :*: i6 = :-: i5
Axiom. (Octonion_i1_i5) We take the following as an axiom:
i1 :*: i5 = i6
Axiom. (Octonion_i5_i1) We take the following as an axiom:
i5 :*: i1 = :-: i6
Axiom. (Octonion_i6_i0) We take the following as an axiom:
i6 :*: i0 = i2
Axiom. (Octonion_i0_i6) We take the following as an axiom:
i0 :*: i6 = :-: i2
Axiom. (Octonion_i0_i2) We take the following as an axiom:
i0 :*: i2 = i6
Axiom. (Octonion_i2_i0) We take the following as an axiom:
i2 :*: i0 = :-: i6
Axiom. (Octonion_i2_i6) We take the following as an axiom:
i2 :*: i6 = i0
Axiom. (Octonion_i6_i2) We take the following as an axiom:
i6 :*: i2 = :-: i0
Axiom. (Octonion_i0_i1) We take the following as an axiom:
i0 :*: i1 = i3
Axiom. (Octonion_i1_i0) We take the following as an axiom:
i1 :*: i0 = :-: i3
Axiom. (Octonion_i1_i3) We take the following as an axiom:
i1 :*: i3 = i0
Axiom. (Octonion_i3_i1) We take the following as an axiom:
i3 :*: i1 = :-: i0
Axiom. (Octonion_i3_i0) We take the following as an axiom:
i3 :*: i0 = i1
Axiom. (Octonion_i0_i3) We take the following as an axiom:
i0 :*: i3 = :-: i1
End of Section SurOctonions
Beginning of Section Octonions
Notation. We use - as a prefix operator with priority 358 corresponding to applying term minus_OSNo.
Notation. We use + as an infix operator with priority 360 and which associates to the right corresponding to applying term add_OSNo.
Notation. We use * as an infix operator with priority 355 and which associates to the right corresponding to applying term mul_OSNo.
Let i0 ≝ Octonion_i0
Let i1 ≝ Complex_i
Let i2 ≝ Quaternion_j
Let i3 ≝ Octonion_i3
Let i4 ≝ Quaternion_k
Let i5 ≝ Octonion_i5
Let i6 ≝ Octonion_i6
Let i ≝ Complex_i
Let j ≝ Quaternion_j
Let k ≝ Quaternion_k
Let p0 : setsetOSNo_proj0
Let p1 : setsetOSNo_proj1
Let pa : setsetsetHSNo_pair
Definition. We define octonion to be {pa (u 0) (u 1)|uquaternion :*: quaternion} of type set.
Axiom. (octonion_I) We take the following as an axiom:
Axiom. (octonion_E) We take the following as an axiom:
∀zoctonion, ∀p : prop, (∀x yquaternion, z = pa x yp)p
Axiom. (octonion_OSNo) We take the following as an axiom:
Axiom. (quaternion_octonion) We take the following as an axiom:
Axiom. (octonion_0) We take the following as an axiom:
Axiom. (octonion_1) We take the following as an axiom:
Axiom. (octonion_i) We take the following as an axiom:
Axiom. (octonion_j) We take the following as an axiom:
Axiom. (octonion_k) We take the following as an axiom:
Axiom. (octonion_i0) We take the following as an axiom:
Axiom. (octonion_i3) We take the following as an axiom:
Axiom. (octonion_i5) We take the following as an axiom:
Axiom. (octonion_i6) We take the following as an axiom:
Axiom. (octonion_p0_eq) We take the following as an axiom:
∀x yquaternion, p0 (pa x y) = x
Axiom. (octonion_p1_eq) We take the following as an axiom:
∀x yquaternion, p1 (pa x y) = y
Axiom. (octonion_p0_quaternion) We take the following as an axiom:
Axiom. (octonion_p1_quaternion) We take the following as an axiom:
Axiom. (octonion_proj0proj1_split) We take the following as an axiom:
∀z woctonion, p0 z = p0 wp1 z = p1 wz = w
Axiom. (octonion_minus_OSNo) We take the following as an axiom:
Axiom. (octonion_conj_OSNo) We take the following as an axiom:
Axiom. (octonion_add_OSNo) We take the following as an axiom:
Axiom. (octonion_mul_OSNo) We take the following as an axiom:
Axiom. (quaternion_p0_eq') We take the following as an axiom:
∀xquaternion, p0 x = x
Axiom. (quaternion_p1_eq') We take the following as an axiom:
∀xquaternion, p1 x = 0
End of Section Octonions