:: MIDSP_2 semantic presentation
:: deftheorem Def1 defines Double MIDSP_2:def 1 :
:: deftheorem Def2 defines are_associated_wrp MIDSP_2:def 2 :
theorem Th1: :: MIDSP_2:1
definition
let S be non
empty set ;
let G be non
empty LoopStr ;
let w be
Function of
[:S,S:],the
carrier of
G;
pred c3 is_atlas_of c1,
c2 means :
Def3:
:: MIDSP_2:def 3
( ( for
a being
Element of
S for
x being
Element of
G ex
b being
Element of
S st
w . a,
b = x ) & ( for
a,
b,
c being
Element of
S st
w . a,
b = w . a,
c holds
b = c ) & ( for
a,
b,
c being
Element of
S holds
(w . a,b) + (w . b,c) = w . a,
c ) );
end;
:: deftheorem Def3 defines is_atlas_of MIDSP_2:def 3 :
for
S being non
empty set for
G being non
empty LoopStr for
w being
Function of
[:S,S:],the
carrier of
G holds
(
w is_atlas_of S,
G iff ( ( for
a being
Element of
S for
x being
Element of
G ex
b being
Element of
S st
w . a,
b = x ) & ( for
a,
b,
c being
Element of
S st
w . a,
b = w . a,
c holds
b = c ) & ( for
a,
b,
c being
Element of
S holds
(w . a,b) + (w . b,c) = w . a,
c ) ) );
definition
let S be non
empty set ;
let G be non
empty LoopStr ;
let w be
Function of
[:S,S:],the
carrier of
G;
let a be
Element of
S;
let x be
Element of
G;
assume E25:
w is_atlas_of S,
G
;
func c4,
c5 . c3 -> Element of
a1 means :
Def4:
:: MIDSP_2:def 4
w . a,
it = x;
existence
ex b1 being Element of S st w . a,b1 = x
by , ;
uniqueness
for b1, b2 being Element of S st w . a,b1 = x & w . a,b2 = x holds
b1 = b2
by , ;
end;
:: deftheorem Def4 defines . MIDSP_2:def 4 :
theorem Th2: :: MIDSP_2:2
theorem Th3: :: MIDSP_2:3
canceled;
theorem Th4: :: MIDSP_2:4
theorem Th5: :: MIDSP_2:5
theorem Th6: :: MIDSP_2:6
theorem Th7: :: MIDSP_2:7
for
S being non
empty set for
a,
b,
c,
d being
Element of
S for
G being non
empty add-associative right_zeroed right_complementable LoopStr for
w being
Function of
[:S,S:],the
carrier of
G st
w is_atlas_of S,
G &
w . a,
b = w . c,
d holds
w . b,
a = w . d,
c
theorem Th8: :: MIDSP_2:8
theorem Th9: :: MIDSP_2:9
theorem Th10: :: MIDSP_2:10
theorem Th11: :: MIDSP_2:11
theorem Th12: :: MIDSP_2:12
canceled;
theorem Th13: :: MIDSP_2:13
theorem Th14: :: MIDSP_2:14
theorem Th15: :: MIDSP_2:15
theorem Th16: :: MIDSP_2:16
theorem Th17: :: MIDSP_2:17
for
S being non
empty set for
G being non
empty Abelian add-associative right_zeroed right_complementable LoopStr for
w being
Function of
[:S,S:],the
carrier of
G st
w is_atlas_of S,
G holds
for
a,
b,
b',
c,
c' being
Element of
S st
w . a,
b = w . b,
c &
w . a,
b' = w . b',
c' holds
w . c,
c' = Double (w . b,b')
theorem Th18: :: MIDSP_2:18
Lemma59:
for M being MidSp holds
( ( for a being Element of (vectgroup M) ex x being Element of (vectgroup M) st Double x = a ) & ( for a being Element of (vectgroup M) st Double a = 0. (vectgroup M) holds
a = 0. (vectgroup M) ) )
:: deftheorem Def5 defines midpoint_operator MIDSP_2:def 5 :
theorem Th19: :: MIDSP_2:19
theorem Th20: :: MIDSP_2:20
:: deftheorem Def6 defines Half MIDSP_2:def 6 :
theorem Th21: :: MIDSP_2:21
theorem Th22: :: MIDSP_2:22
theorem Th23: :: MIDSP_2:23
:: deftheorem Def7 defines vector MIDSP_2:def 7 :
definition
let M be
MidSp;
func vect c1 -> Function of
[:the carrier of a1,the carrier of a1:],the
carrier of
(vectgroup a1) means :
Def8:
:: MIDSP_2:def 8
for
p,
q being
Point of
M holds
it . p,
q = vect p,
q;
existence
ex b1 being Function of [:the carrier of M,the carrier of M:],the carrier of (vectgroup M) st
for p, q being Point of M holds b1 . p,q = vect p,q
uniqueness
for b1, b2 being Function of [:the carrier of M,the carrier of M:],the carrier of (vectgroup M) st ( for p, q being Point of M holds b1 . p,q = vect p,q ) & ( for p, q being Point of M holds b2 . p,q = vect p,q ) holds
b1 = b2
end;
:: deftheorem Def8 defines vect MIDSP_2:def 8 :
theorem Th24: :: MIDSP_2:24
theorem Th25: :: MIDSP_2:25
theorem Th26: :: MIDSP_2:26
theorem Th27: :: MIDSP_2:27
definition
let S be non
empty set ;
let G be non
empty Abelian add-associative right_zeroed right_complementable midpoint_operator LoopStr ;
let w be
Function of
[:S,S:],the
carrier of
G;
assume E25:
w is_atlas_of S,
G
;
func @ c3 -> BinOp of
a1 means :
Def9:
:: MIDSP_2:def 9
for
a,
b being
Element of
S holds
w . a,
(it . a,b) = w . (it . a,b),
b;
existence
ex b1 being BinOp of S st
for a, b being Element of S holds w . a,(b1 . a,b) = w . (b1 . a,b),b
uniqueness
for b1, b2 being BinOp of S st ( for a, b being Element of S holds w . a,(b1 . a,b) = w . (b1 . a,b),b ) & ( for a, b being Element of S holds w . a,(b2 . a,b) = w . (b2 . a,b),b ) holds
b1 = b2
end;
:: deftheorem Def9 defines @ MIDSP_2:def 9 :
theorem Th28: :: MIDSP_2:28
definition
let S be non
empty set ;
let G be non
empty Abelian add-associative right_zeroed right_complementable midpoint_operator LoopStr ;
let w be
Function of
[:S,S:],the
carrier of
G;
func Atlas c3 -> Function of
[:the carrier of MidStr(# a1,(@ a3) #),the carrier of MidStr(# a1,(@ a3) #):],the
carrier of
a2 equals :: MIDSP_2:def 10
w;
coherence
w is Function of [:the carrier of MidStr(# S,(@ w) #),the carrier of MidStr(# S,(@ w) #):],the carrier of G
;
end;
:: deftheorem Def10 defines Atlas MIDSP_2:def 10 :
Lemma88:
for S being non empty set
for G being non empty Abelian add-associative right_zeroed right_complementable midpoint_operator LoopStr
for w being Function of [:S,S:],the carrier of G st w is_atlas_of S,G holds
for a, b, c being Point of MidStr(# S,(@ w) #) holds
( a @ b = c iff (Atlas w) . a,c = (Atlas w) . c,b )
theorem Th29: :: MIDSP_2:29
canceled;
theorem Th30: :: MIDSP_2:30
canceled;
theorem Th31: :: MIDSP_2:31
canceled;
theorem Th32: :: MIDSP_2:32
:: deftheorem Def11 defines MidSp. MIDSP_2:def 11 :
theorem Th33: :: MIDSP_2:33
:: deftheorem Def12 defines ATLAS-like MIDSP_2:def 12 :
:: deftheorem Def13 defines . MIDSP_2:def 13 :
:: deftheorem Def14 defines . MIDSP_2:def 14 :
:: deftheorem Def15 defines 0. MIDSP_2:def 15 :
theorem Th34: :: MIDSP_2:34
for
G being non
empty Abelian add-associative right_zeroed right_complementable midpoint_operator LoopStr for
M being non
empty MidStr for
w being
Function of
[:the carrier of M,the carrier of M:],the
carrier of
G for
a,
c,
b1,
b2 being
Point of
M st
w is_atlas_of the
carrier of
M,
G &
M,
G are_associated_wrp w holds
(
a @ c = b1 @ b2 iff
w . a,
c = (w . a,b1) + (w . a,b2) )
theorem Th35: :: MIDSP_2:35
theorem Th36: :: MIDSP_2:36
for
M being
MidSp for
W being
ATLAS of
M for
a,
c,
b1,
b2 being
Point of
M holds
(
a @ c = b1 @ b2 iff
W . a,
c = (W . a,b1) + (W . a,b2) )
theorem Th37: :: MIDSP_2:37
theorem Th38: :: MIDSP_2:38
for
M being
MidSp for
W being
ATLAS of
M holds
( ( for
a being
Point of
M for
x being
Vector of
W ex
b being
Point of
M st
W . a,
b = x ) & ( for
a,
b,
c being
Point of
M st
W . a,
b = W . a,
c holds
b = c ) & ( for
a,
b,
c being
Point of
M holds
(W . a,b) + (W . b,c) = W . a,
c ) )
theorem Th39: :: MIDSP_2:39
for
M being
MidSp for
W being
ATLAS of
M for
a,
b,
c,
d being
Point of
M for
x being
Vector of
W holds
(
W . a,
a = 0. W & (
W . a,
b = 0. W implies
a = b ) &
W . a,
b = - (W . b,a) & (
W . a,
b = W . c,
d implies
W . b,
a = W . d,
c ) & ( for
b being
Point of
M for
x being
Vector of
W ex
a being
Point of
M st
W . a,
b = x ) & (
W . b,
a = W . c,
a implies
b = c ) & (
a @ b = c implies
W . a,
c = W . c,
b ) & (
W . a,
c = W . c,
b implies
a @ b = c ) & (
a @ b = c @ d implies
W . a,
d = W . c,
b ) & (
W . a,
d = W . c,
b implies
a @ b = c @ d ) & (
W . a,
b = x implies
a,
x . W = b ) & (
a,
x . W = b implies
W . a,
b = x ) )
theorem Th40: :: MIDSP_2:40