let N be with_non-empty_elements set ; :: thesis: for S being 1 -element IC-Ins-separated Mem-Struct of N
for s1, s2 being State of S st IC s1 = IC s2 holds
s1 = s2
let T be 1 -element IC-Ins-separated Mem-Struct of N; :: thesis: for s1, s2 being State of T st IC s1 = IC s2 holds
s1 = s2
let s1, s2 be State of T; :: thesis: ( IC s1 = IC s2 implies s1 = s2 )
assume A1: IC s1 = IC s2 ; :: thesis: s1 = s2
A2: dom s1 = the carrier of T by PARTFUN1:def 2;
then B2: dom s1 = dom s2 by PARTFUN1:def 2;

now

let x be set ; :: thesis: ( x in dom s1 implies s1 . x = s2 . x )
assume A4: x in dom s1 ; :: thesis: s1 . x = s2 . x
A10: x = IC by A4, A2, STRUCT_0:def 10;
hence s1 . x = IC s1
.= s2 . x by A1, A10 ;
:: thesis: verum

end;

hence s1 = s2 by B2, FUNCT_1:2; :: thesis: verum