| same-subclasses-contains(ty .jtelemtype .class, str, str0), tdname+∃(str0, ty .jtelemtype .class), st[r -- _type] .type ≤ ty, junkref(str, r, st), has_classtype(st[r -- _type] .type) ⊦ r = jvmref, junkref(str0, r, st), same-subclasses-contains(st[r -- _type] .type .jtelemtype .class, str, str0), st[r -- _type] .type .jtelemtype .class ≤ ty .jtelemtype .class |
⊦ has_classtype(ty) → ( ty ≤ ty0 ↔ ty .jtdims = ty0 .jtdims ∧ has_classtype(ty0) ∧ ty .jtclass ≤ ty0 .jtclass ∨ ty .jtdims > ty0 .jtdims ∧ has_classtype(ty0) ∧ ty0 .jtclass = `java.lang.Object' .class)
has_classtype(st[r -- _type] .type), same-subclasses-contains(ty .jtelemtype .class, str, str0), tdname+∃(str0, ty .jtelemtype .class), st[r -- _type] .type .jtdims = ty .jtdims ∧ has_classtype(ty) ∧ st[r -- _type] .type .jtclass ≤ ty .jtclass ∨ st[r -- _type] .type .jtdims > ty .jtdims ∧ has_classtype(ty) ∧ ty .jtclass = `java.lang.Object' .class, junkref(str, r, st), has_classtype(st[r -- _type] .type) ⊦ r = jvmref, junkref(str0, r, st), same-subclasses-contains(st[r -- _type] .type .jtelemtype .class, str, str0), st[r -- _type] .type .jtelemtype .class ≤ ty .jtelemtype .class
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (ty, st[r -- _type] .type)]]