| ⊦ pfxclosed(trace(ioa)) |
¬ pfxclosed(trace(ioa)) ⊦
| ¬ pfxclosed(trace(ioa)) ⊦ |
⊦ pfxclosed(αp) ↔ (∀ α1, α2. αp(α2) ∧ α1 ⊑ α2 → αp(α1))
∃ β, β0. ¬(trace(ioa)(β0) ∧ β ⊑ β0 → trace(ioa)(β)) ⊦
Used terms: trace(ioa)
| ⊦ pfxclosed(αp) ↔ (∀ α1, α2. αp(α2) ∧ α1 ⊑ α2 → αp(α1)) |
| ∃ β, β0. ¬(trace(ioa)(β0) ∧ β ⊑ β0 → trace(ioa)(β)) ⊦ |
trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦
| trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦ |
β = ⌜el⌝ , trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦
β = ⌜ef⌝ , trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦
Used simplifier rules: Stream('a) freely generated by ⌜ ⌝, ⌜ ⌝;;
| β = ⌜el⌝ , trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦ |
trace(ioa)(β0), ⌜el⌝ ⊑ β0, ¬ trace*(ioa)(el) ⊦
Used simplifier rules: ⊦ trace(ioa)(⌜el⌝ ) ↔ trace*(ioa)(el); (s)
| trace(ioa)(β0), ⌜el⌝ ⊑ β0, ¬ trace*(ioa)(el) ⊦ |
ioa = IOAut(start, step, ext), trace(ioa)(β0), ⌜el⌝ ⊑ β0, ¬ trace*(ioa)(el) ⊦
Used simplifier rules: IOAutomaton('s, 'a, 'e) freely generated by IOAut;;
| ioa = IOAut(start, step, ext), trace(ioa)(β0), ⌜el⌝ ⊑ β0, ¬ trace*(ioa)(el) ⊦ |
trace(IOAut(start, step, ext))(β0), ⌜el⌝ ⊑ β0, ¬ trace*(IOAut(start, step, ext))(el) ⊦
| trace(IOAut(start, step, ext))(β0), ⌜el⌝ ⊑ β0, ¬ trace*(IOAut(start, step, ext))(el) ⊦ |
⊦ trace(IOAut(start, step, ext))(β) ↔ (∃ σ, α. β = ext !(α) ∧ exec(IOAut(start, step, ext))(σ, α))
⌜el⌝ ⊑ β0, ¬ trace*(IOAut(start, step, ext))(el), ∃ σ, α. β0 = ext !(α) ∧ exec(IOAut(start, step, ext))(σ, α) ⊦
Used terms: start, step, ext, β0
| ⊦ trace(IOAut(start, step, ext))(β) ↔ (∃ σ, α. β = ext !(α) ∧ exec(IOAut(start, step, ext))(σ, α)) |
| ⌜el⌝ ⊑ β0, ¬ trace*(IOAut(start, step, ext))(el), ∃ σ, α. β0 = ext !(α) ∧ exec(IOAut(start, step, ext))(σ, α) ⊦ |
frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ¬ trace*(IOAut(start, step, ext))(el) ⊦
Used simplifier rules: ⊦ IOAut(start, step, ext).start = start; (s) ⊦ exec(ioa)(σ, α) ↔ frag(ioa)(σ, α) ∧ ioa.start(σ[0]); (s)
| frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ¬ trace*(IOAut(start, step, ext))(el) ⊦ |
⊦ trace*(IOAut(start, step, ext))(el) ↔ (∃ sl, al. el = ext !(al) ∧ exec*(IOAut(start, step, ext))(sl, al))
frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ∀ sl, al. ¬(el = ext !(al) ∧ exec*(IOAut(start, step, ext))(sl, al)) ⊦
Used terms: start, step, ext, el
| ⊦ trace*(IOAut(start, step, ext))(el) ↔ (∃ sl, al. el = ext !(al) ∧ exec*(IOAut(start, step, ext))(sl, al)) |
| frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ∀ sl, al. ¬(el = ext !(al) ∧ exec*(IOAut(start, step, ext))(sl, al)) ⊦ |
frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]) ⊦
Used simplifier rules: ⊦ IOAut(start, step, ext).start = start; (s) ⊦ exec*(ioa)(sl, al) ↔ frag*(ioa)(sl, al) ∧ ioa.start(sl[0]); (s)
| frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ⌜el⌝ ⊑ ext !(α), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]) ⊦ |
⊦ σ ⊑ σ0 ↔ (∃ σ1. σ + σ1 = σ0)
frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]), ∃ β. ⌜el⌝ + β = ext !(α) ⊦
Used terms: ⌜el⌝ , ext !(α)
| ⊦ σ ⊑ σ0 ↔ (∃ σ1. σ + σ1 = σ0) |
| frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]), ∃ β. ⌜el⌝ + β = ext !(α) ⊦ |
⌜el⌝ + β = ext !(α), frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]) ⊦
| ⌜el⌝ + β = ext !(α), frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]) ⊦ |
⊦ ext !(α) = ⌜el⌝ + β ↔ (∃ al, α0. α = ⌜al⌝ + α0 ∧ ext !(⌜al⌝ ) = ⌜el⌝ ∧ ext !(α0) = β)
frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]), ∃ al, α0. α = ⌜al⌝ + α0 ∧ ext !(⌜al⌝ ) = ⌜el⌝ ∧ ext !(α0) = β ⊦
Used simplifier rules: append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2; from specification stream Used terms: ext, α, el, β
| ⊦ ext !(α) = ⌜el⌝ + β ↔ (∃ al, α0. α = ⌜al⌝ + α0 ∧ ext !(⌜al⌝ ) = ⌜el⌝ ∧ ext !(α0) = β) |
| frag(IOAut(start, step, ext))(σ, α), start(σ[0]), ∀ sl, al. el ≠ ext !(al) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al) ∨ ¬ start(sl[0]), ∃ al, α0. α = ⌜al⌝ + α0 ∧ ext !(⌜al⌝ ) = ⌜el⌝ ∧ ext !(α0) = β ⊦ |
frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦
Used simplifier rules: ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; (s) ⊦ ext !(⌜al⌝ ) = ⌜ext !(al)⌝ ; (s)
| frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ |
⊦ ¬ # α < ⌜n⌝ ∧ ⌜n⌝ < # σ → ( frag(IOAut(start, step, ext))(σ, α) ↔ frag*(IOAut(start, step, ext))(σ.take(n + 1), α.take(n)) ∧ frag(IOAut(start, step, ext))(σ.drop(n), α.drop(n)))
frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ ¬ #(⌜al⌝ + α0) < ⌜# al⌝ ∧ ⌜# al⌝ < # σ
⌜# al⌝ < # σ, frag(IOAut(start, step, ext))(σ.drop(# al), (⌜al⌝ + α0).drop(# al)), frag*(IOAut(start, step, ext))(σ.take(# al + 1), (⌜al⌝ + α0).take(# al)), start(σ[0]), ¬ #(⌜al⌝ + α0) < ⌜# al⌝ , ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦
Used terms: ext, ⌜al⌝ + α0, start, σ, # al, step
| ⊦ ¬ # α < ⌜n⌝ ∧ ⌜n⌝ < # σ → ( frag(IOAut(start, step, ext))(σ, α) ↔ frag*(IOAut(start, step, ext))(σ.take(n + 1), α.take(n)) ∧ frag(IOAut(start, step, ext))(σ.drop(n), α.drop(n))) |
| frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ ¬ #(⌜al⌝ + α0) < ⌜# al⌝ ∧ ⌜# al⌝ < # σ |
frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦
Used simplifier rules: add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf ⊦ ¬ n∞ + n∞1 < n∞1; (s) append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2; from specification stream ⊦ # ⌜x⌝ = ⌜# x⌝ ; (s) ⊦ #(σ + σ1) = # σ + # σ1; (s)
| frag(IOAut(start, step, ext))(σ, ⌜al⌝ + α0), start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ |
⊦ frag(IOAut(start, step, ext))(σ, α) ↔ # σ = # α + ⌜1⌝ ∧ (∀ n. ⌜n⌝ < # α → step(σ[n], α[n], σ[n +1]))
# σ = #(⌜al⌝ + α0) + ⌜1⌝ , start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]), ∀ n. ⌜n⌝ < #(⌜al⌝ + α0) → step(σ[n], (⌜al⌝ + α0)[n], σ[n +1]) ⊦
Used terms: ext, ⌜al⌝ + α0, start, σ, step
| ⊦ frag(IOAut(start, step, ext))(σ, α) ↔ # σ = # α + ⌜1⌝ ∧ (∀ n. ⌜n⌝ < # α → step(σ[n], α[n], σ[n +1])) |
| # σ = #(⌜al⌝ + α0) + ⌜1⌝ , start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]), ∀ n. ⌜n⌝ < #(⌜al⌝ + α0) → step(σ[n], (⌜al⌝ + α0)[n], σ[n +1]) ⊦ |
# σ = (⌜# al⌝ + # α0) + ⌜1⌝ , start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]), ∀ n. ⌜n⌝ < ⌜# al⌝ + # α0 → step(σ[n], (⌜al⌝ + α0)[n], σ[n + 1]) ⊦
Used simplifier rules: ⊦ m +1 = m + 1; (s) append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2; from specification stream ⊦ # ⌜x⌝ = ⌜# x⌝ ; (s) ⊦ #(σ + σ1) = # σ + # σ1; (s) add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf
| # σ = (⌜# al⌝ + # α0) + ⌜1⌝ , start(σ[0]), ¬ ⌜# al⌝ < # σ, ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]), ∀ n. ⌜n⌝ < ⌜# al⌝ + # α0 → step(σ[n], (⌜al⌝ + α0)[n], σ[n + 1]) ⊦ |
Used simplifier rules: ⊦ ⌜n⌝ < ⌜1⌝ + n∞ ↔ ¬ n∞ < ⌜n⌝ ; (s) ⊦ ¬ n∞ + n∞1 < n∞1; (s) add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf
| ⌜# al⌝ < # σ, frag(IOAut(start, step, ext))(σ.drop(# al), (⌜al⌝ + α0).drop(# al)), frag*(IOAut(start, step, ext))(σ.take(# al + 1), (⌜al⌝ + α0).take(# al)), start(σ[0]), ¬ #(⌜al⌝ + α0) < ⌜# al⌝ , ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ |
⌜# al⌝ < # σ, frag(IOAut(start, step, ext))(σ.drop(# al), α0), frag*(IOAut(start, step, ext))(σ.take(# al + 1), al), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦
Used simplifier rules: add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf ⊦ ¬ n∞ + n∞1 < n∞1; (s) append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2; from specification stream ⊦ # ⌜x⌝ = ⌜# x⌝ ; (s) ⊦ #(σ + σ1) = # σ + # σ1; (s) ⊦ (⌜x⌝ + σ).drop(# x) = σ; (s) ⊦ (⌜x⌝ + σ).take(# x) = x; (s)
| ⌜# al⌝ < # σ, frag(IOAut(start, step, ext))(σ.drop(# al), α0), frag*(IOAut(start, step, ext))(σ.take(# al + 1), al), start(σ[0]), ∀ sl, al0. ext !(al) ≠ ext !(al0) ∨ ¬ frag*(IOAut(start, step, ext))(sl, al0) ∨ ¬ start(sl[0]) ⊦ |
Used simplifier rules: ⊦ 0 < m ↔ m ≠ 0; (s) ⊦ m + 1 ≠ 0; (s) ⊦ ⌜m + n⌝ = ⌜m⌝ + ⌜n⌝ ; (s) a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic c: ⊦ m + n = n + m; from specification nat-basic ⊦ # σ < ⌜n⌝ + ⌜1⌝ ↔ ¬ ⌜n⌝ < # σ; (s) add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf m < n, ¬ # σ < ⌜n⌝ ⊦ σ.take(n)[m] = σ[m]; (s) Used terms: σ.take(# al + 1), al
| β = ⌜ef⌝ , trace(ioa)(β0), β ⊑ β0, ¬ trace(ioa)(β) ⊦ |
trace(ioa)(β0), ⌜ef⌝ ⊑ β0, ¬ traceω(ioa)(ef) ⊦
Used simplifier rules: ⊦ trace(ioa)(⌜ef⌝ ) ↔ traceω(ioa)(ef); (s)
| trace(ioa)(β0), ⌜ef⌝ ⊑ β0, ¬ traceω(ioa)(ef) ⊦ |
Used simplifier rules: Stream('a) freely generated by ⌜ ⌝, ⌜ ⌝;; ⊦ ⌜nf⌝ ⊑ ⌜nf0⌝ ↔ nf = nf0; (s) ⊦ trace(ioa)(⌜ef⌝ ) ↔ traceω(ioa)(ef); (s) ⊦ ¬ ⌜nf⌝ ⊑ ⌜x⌝ ; (s)
The following image shows the proof tree of sequent calculus. The proved goal is at the bottom. You can click on the nodes to view additional rules. See here for details on colors in a proof tree.