set L = ExNearLattice ;
for v2, v1, v0 being Element of ExNearLattice holds ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
proof
let v2, v1, v0 be Element of ExNearLattice; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
a1: v2 in {0,1,2} by LATWAL_1:def 10;
then A1: ( v2 = 2 or v2 = 1 or v2 = 0 ) by ENUMSET1:def 1;
a2: v1 in {0,1,2} by LATWAL_1:def 10;
then A2: ( v1 = 2 or v1 = 1 or v1 = 0 ) by ENUMSET1:def 1;
a3: v0 in {0,1,2} by LATWAL_1:def 10;
then A3: ( v0 = 2 or v0 = 1 or v0 = 0 ) by ENUMSET1:def 1;
reconsider a = v0, b = v1, c = v2 as Element of {0,1,2} by a1, a2, a3;
per cases ( ( v2 = 2 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 2 & v0 = 1 ) or ( v2 = 2 & v1 = 2 & v0 = 0 ) or ( v2 = 1 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 0 ) or ( v2 = 2 & v1 = 0 & v0 = 2 ) or ( v2 = 0 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 1 ) or ( v2 = 0 & v1 = 0 & v0 = 2 ) or ( v2 = 0 & v1 = 0 & v0 = 1 ) or ( v2 = 0 & v1 = 1 & v0 = 0 ) or ( v2 = 0 & v1 = 1 & v0 = 1 ) or ( v2 = 0 & v1 = 1 & v0 = 2 ) or ( v2 = 0 & v1 = 2 & v0 = 0 ) or ( v2 = 0 & v1 = 2 & v0 = 1 ) or ( v2 = 1 & v1 = 0 & v0 = 0 ) or ( v2 = 1 & v1 = 0 & v0 = 1 ) or ( v2 = 1 & v1 = 0 & v0 = 2 ) or ( v2 = 1 & v1 = 1 & v0 = 0 ) or ( v2 = 1 & v1 = 1 & v0 = 2 ) or ( v2 = 1 & v1 = 2 & v0 = 0 ) or ( v2 = 1 & v1 = 2 & v0 = 1 ) or ( v2 = 1 & v1 = 2 & v0 = 2 ) or ( v2 = 1 & v1 = 2 & v0 = 2 ) or ( v2 = 2 & v1 = 0 & v0 = 0 ) or ( v2 = 2 & v1 = 0 & v0 = 1 ) or ( v2 = 2 & v1 = 1 & v0 = 0 ) or ( v2 = 2 & v1 = 1 & v0 = 2 ) ) by A1, A2, A3;
suppose ( v2 = 2 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 ; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
B2: v0 "/\" v1 = a ex123"/\" b by LATWAL_1:def 9, LATWAL_1:def 10
.= min (1,2) by B1, LATWAL_1:def 6
.= 1 by XXREAL_0:def 9 ;
(v0 "/\" v1) "\/" (v2 "/\" v1) = 2 by B1, B2, PomocU21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
B3: v0 "/\" v1 = a ex123"/\" b by LATWAL_1:def 9, LATWAL_1:def 10
.= 2 by B1, LATWAL_1:def 6 ;
((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1, B3;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 ; :: thesis: verum
end;
suppose ( v2 = 1 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 ; :: thesis: verum
end;
suppose ( v2 = 0 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 ; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 2 by PomocL20;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1, PomocU20; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 2 by PomocL02;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 1 by PomocL21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 0 by PomocL10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 2 by PomocL20;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 0 by B1, PomocU02;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 0 by PomocL10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 0 by PomocL01;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1, PomocU10; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 0 by PomocL01;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 1 by B1, PomocU10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 1 by PomocL21;
v2 "/\" v1 = 0 by B1, PomocL01;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 1 by B2, PomocU10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 2 by PomocL02;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 0 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 1 by PomocL12;
v2 "/\" v1 = 2 by B1, PomocL02;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 2 by B2, PomocU12;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 0 by PomocL10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 0 by PomocL10;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 0 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 2 by PomocL20;
v2 "/\" v1 = 0 by B1, PomocL10;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 0 by B2, PomocU20;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 0 by PomocL01;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 1 by B1, PomocU01;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 1 by PomocL21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 2 by PomocL20;
v2 "/\" v1 = 1 by B1, PomocL12;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 2 by B2, PomocU21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v0 "/\" v1 = 1 by PomocL12;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1, PomocU12; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 1 by PomocL12;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 2 by B1, PomocU21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 1 & v1 = 2 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 1 by PomocL12;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 2 by B1, PomocU21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 2 by PomocL20;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 0 by B1, PomocU20;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 0 & v0 = 1 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 0 by PomocL10;
v2 "/\" v1 = 2 by B1, PomocL20;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 0 by B2, PomocU02;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 0 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then B2: v0 "/\" v1 = 0 by PomocL01;
v2 "/\" v1 = 1 by B1, PomocL21;
then (v0 "/\" v1) "\/" (v2 "/\" v1) = 1 by B2, PomocU01;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
suppose B1: ( v2 = 2 & v1 = 1 & v0 = 2 ) ; :: thesis: ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1
then v2 "/\" v1 = 1 by PomocL21;
hence ((v0 "/\" v1) "\/" (v2 "/\" v1)) "\/" v1 = v1 by B1; :: thesis: verum
end;
end;
end;
hence ExNearLattice is satisfying_W3' by LATWAL_1:def 2; :: thesis: verum