⊦ (as ++ adr).size = (as.size - (adr ∈ as ⊃ adr.size;0)) + adr.size
Used simplifier rules: size-rem: ⊦ (as -- adr).size = as.size - (adr ∈ as ⊃ adr.size;0);