let N be with_non-empty_elements set ; :: thesis: for A being non empty stored-program AMI-Struct of N
for s being State of
for o being Object of holds s . o in ObjectKind o
let A be non empty stored-program AMI-Struct of N; :: thesis: for s being State of
for o being Object of holds s . o in ObjectKind o
let s be State of ; :: thesis: for o being Object of holds s . o in ObjectKind o
let o be Object of ; :: thesis: s . o in ObjectKind o
dom the Object-Kind of A = the carrier of A by FUNCT_2:def 1;
hence s . o in ObjectKind o by CARD_3:18; :: thesis: verum