let n be Nat; :: thesis: for R being NatRelStr of n
for x, y being Nat st y in n & [(x + n),y] in the InternalRel of (Mycielskian R) holds
[x,y] in the InternalRel of R
let R be NatRelStr of n; :: thesis: for x, y being Nat st y in n & [(x + n),y] in the InternalRel of (Mycielskian R) holds
[x,y] in the InternalRel of R
let a, b be Nat; :: thesis: ( b in n & [(a + n),b] in the InternalRel of (Mycielskian R) implies [a,b] in the InternalRel of R )
set cR = the carrier of R;
set iR = the InternalRel of R;
set MR = Mycielskian R;
set iMR = the InternalRel of (Mycielskian R);
assume that
A: b in n and
C: [(a + n),b] in the InternalRel of (Mycielskian R) ; :: thesis: [a,b] in the InternalRel of R
D: the InternalRel of (Mycielskian R) = ((( the InternalRel of R \/ { [x,(y + n)] where x, y is Element of NAT : [x,y] in the InternalRel of R } ) \/ { [(x + n),y] where x, y is Element of NAT : [x,y] in the InternalRel of R } ) \/ [:{(2 * n)},((2 * n) \ n):]) \/ [:((2 * n) \ n),{(2 * n)}:] by LMR;

per cases ( [(a + n),b] in the InternalRel of R or [(a + n),b] in { [x,(y + n)] where x, y is Element of NAT : [x,y] in the InternalRel of R } or [(a + n),b] in { [(x + n),y] where x, y is Element of NAT : [x,y] in the InternalRel of R } or [(a + n),b] in [:{(2 * n)},((2 * n) \ n):] or [(a + n),b] in [:((2 * n) \ n),{(2 * n)}:] ) by C, D, U5;

suppose [(a + n),b] in the InternalRel of R ; :: thesis: [a,b] in the InternalRel of R

then a + n in the carrier of R by ZFMISC_1:106;
then a + n in n by LNRS;
then a + n < n by NAT_1:45;
then a < n - n by XREAL_1:22;
then a < 0 ;
hence [a,b] in the InternalRel of R ; :: thesis: verum

end;

suppose [(a + n),b] in { [x,(y + n)] where x, y is Element of NAT : [x,y] in the InternalRel of R } ; :: thesis: [a,b] in the InternalRel of R

then consider x, y being Element of NAT such that
A1: [(a + n),b] = [x,(y + n)] and
B1: [x,y] in the InternalRel of R ;
a + n = x by A1, ZFMISC_1:33;
then a + n in the carrier of R by B1, ZFMISC_1:106;
then a + n in n by LNRS;
then a + n < n by NAT_1:45;
then a < n - n by XREAL_1:22;
then a < 0 ;
hence [a,b] in the InternalRel of R ; :: thesis: verum

end;

suppose [(a + n),b] in { [(x + n),y] where x, y is Element of NAT : [x,y] in the InternalRel of R } ; :: thesis: [a,b] in the InternalRel of R

then consider x, y being Element of NAT such that
A1: [(a + n),b] = [(x + n),y] and
B1: [x,y] in the InternalRel of R ;
a + n = x + n by A1, ZFMISC_1:33;
hence [a,b] in the InternalRel of R by B1, A1, ZFMISC_1:33; :: thesis: verum

end;

suppose [(a + n),b] in [:{(2 * n)},((2 * n) \ n):] ; :: thesis: [a,b] in the InternalRel of R

then consider c, d being set such that
c in {(2 * n)} and
B1: d in (2 * n) \ n and
C1: [(a + n),b] = [c,d] by ZFMISC_1:def 2;
b = d by C1, ZFMISC_1:33;
then n <= b by B1, Nat0;
hence [a,b] in the InternalRel of R by A, NAT_1:45; :: thesis: verum

end;

suppose [(a + n),b] in [:((2 * n) \ n),{(2 * n)}:] ; :: thesis: [a,b] in the InternalRel of R

then consider c, d being set such that
c in (2 * n) \ n and
B1: d in {(2 * n)} and
C1: [(a + n),b] = [c,d] by ZFMISC_1:def 2;
D1: d = 2 * n by B1, TARSKI:def 1;
d = b by C1, ZFMISC_1:33;
then n + n < n by A, D1, NAT_1:45;
then n < n - n by XREAL_1:22;
then n < 0 ;
hence [a,b] in the InternalRel of R ; :: thesis: verum

end;

end;