| is_fskey(sk), okfieldinits(sk .fs .class, fis0), mkfs(class, ty, fieldvar) ' ∈ fis0 .keys, ∀ class0, class, ty, fieldvar. okfieldinits(class0, fis0) ∧ mkfs(class, ty, fieldvar) ' ∈ fis0 .keys → class = class0 ⊦ class = sk .fs .class, sk .fs .type = abstract_type, mkfs(class, ty, fieldvar) ' = sk |
sk = fs ', is_fskey(sk), okfieldinits(fs .class, fis0), mkfs(class, ty, fieldvar) ' ∈ fis0 .keys, ∀ class0, class, ty, fieldvar. okfieldinits(class0, fis0) ∧ mkfs(class, ty, fieldvar) ' ∈ fis0 .keys → class = class0 ⊦ class = fs .class, fs .type = abstract_type, mkfs(class, ty, fieldvar) ' = sk
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_fskey(sk) → (fs = sk .fs ↔ sk = fs ')])], [EXTRATERMS : (sk, fs)]]