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