| ⊦ (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][r -- (sk ' + sk0 ')]) = (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][val .refval -- sk0]) |
val .refval -- sk0 = r -- sk ⊦ (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][r -- (sk ' + sk0 ')]) = (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][val .refval -- sk0])
⊦ val .refval -- sk0 = r -- sk, (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][r -- (sk ' + sk0 ')]) = (st[r -- _type, typeval(mkclasstype(class))][r -- sk, val][val .refval -- sk0])
[[CONCRETESIMPRULES : ()], [EXTRAFMAS : (val .refval -- sk0 = r -- sk)]]