2026-06-09 20:52:08 -07:00
|
|
|
import Spa.Lattice
|
|
|
|
|
|
|
|
|
|
namespace Spa
|
|
|
|
|
|
2026-06-25 13:59:08 -05:00
|
|
|
lemma eval_combine₂ {O : Type*} [Preorder O] {combine : O → O → O}
|
2026-06-09 20:52:08 -07:00
|
|
|
(hmono : Monotone₂ combine) {o₁ o₂ o₃ o₄ : O}
|
|
|
|
|
(h₁ : o₁ ≤ o₃) (h₂ : o₂ ≤ o₄) : combine o₁ o₂ ≤ combine o₃ o₄ :=
|
|
|
|
|
le_trans (hmono.1 o₂ h₁) (hmono.2 o₃ h₂)
|
|
|
|
|
|
|
|
|
|
end Spa
|
