| mon(σσ), σσ ≠ [], ∀ n. ⌜n⌝ < # σσ → σσ[n] ⊑ σ, ∀ n. ⌜n⌝ < # σσ → σσ[n] ⊑ σ0, ∀ m. ¬ # σ < ⌜m⌝ → (∃ n. ⌜n⌝ < # σσ ∧ σ to m ⊑ σσ[n]), ∀ m. ¬ # σ0 < ⌜m⌝ → (∃ n. ⌜n⌝ < # σσ ∧ σ0 to m ⊑ σσ[n]) ⊦ σ = σ0 |
mon(σσ), ∀ m. ¬ # σ0 < ⌜m⌝ → (∃ n. ⌜n⌝ < # σσ ∧ σ0 to m ⊑ σσ[n]), ∀ m. ¬ # σ < ⌜m⌝ → (∃ n. ⌜n⌝ < # σσ ∧ σ to m ⊑ σσ[n]), ∀ n. ⌜n⌝ < # σσ → σσ[n] ⊑ σ0, ∀ n. ⌜n⌝ < # σσ → σσ[n] ⊑ σ ⊦ σ = σ0, σσ = []