| as ∩ (adr + log0).toSet = ∅, ∀ as, fs, ri. as ∩ log0.toSet = ∅ → replay-log(log0, fs \ as, ri) = replay-log(log0, fs, ri) ⊦ replay-log(adr + log0, fs \ as, ri) = replay-log(adr + log0, fs, ri) |
as ∩ log0.toSet = ∅, ∀ as, fs, ri. as ∩ log0.toSet = ∅ → replay-log(log0, fs \ as, ri) = replay-log(log0, fs, ri) ⊦ replay-log(log0, fs \ as, replay-one(adr, fs[adr], ri)) = replay-log(log0, fs, replay-one(adr, fs[adr], ri)), adr ∈ as
Used simplifier rules: replay-log-rec: ⊦ replay-log(adr ' + log, fs, ri) = replay-log(log, fs, replay-one(adr, fs[adr], ri));% ⊦ ¬ adr ∈ as → (fs \ as)[adr] = fs[adr]; (s)%int-c: ⊦ as ∩ as0 = as0 ∩ as; from specification set-union[node-store]%int-a: ⊦ (as ∩ as0) ∩ as1 = as ∩ as0 ∩ as1; from specification set-union[node-store]% ⊦ as ∩ (as0 ++ adr) = ∅ ↔ as ∩ as0 = ∅ ∧ ¬ adr ∈ as; (ws)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]%unc: ⊦ as ∪ as0 = as0 ∪ as; from specification set-union[node-store]%una: ⊦ (as ∪ as0) ∪ as1 = as ∪ as0 ∪ as1; from specification set-union[node-store]% ⊦ as ∪ ∅ = as; (s)% ⊦ (as ++ adr) ∪ as0 = (as ∪ as0) ++ adr; (s)% ⊦ adr '.toSet = ∅ ++ adr; (s)% ⊦ (ax + ax0).toSet = ax.toSet ∪ ax0.toSet; (s)% ⊦ adr + ax = adr ' + ax; (s)