let S be non empty 1-sorted ; :: thesis: for t being Element of S
for d1 being Element of SCM-Data-Loc holds [5,{},<*d1,t*>] in SCM-Instr S
let t be Element of S; :: thesis: for d1 being Element of SCM-Data-Loc holds [5,{},<*d1,t*>] in SCM-Instr S
let d1 be Element of SCM-Data-Loc ; :: thesis: [5,{},<*d1,t*>] in SCM-Instr S
reconsider D1 = d1 as Element of SCM-Data-Loc ;
[5,{},<*D1,t*>] in { [5,{},<*i,a*>] where i is Element of SCM-Data-Loc , a is Element of S : verum } ;
hence [5,{},<*d1,t*>] in SCM-Instr S by XBOOLE_0:def 3; :: thesis: verum