fact: Definition lattice_for_lt {T} (lt : T -> T -> bool) (x y : lattice_for T) := match x, y with | ⊤, ⊤ => false | constant x', constant y' => lt x' y' | ⊥, ⊥ => false | _, ⊤ => true | ⊤, _ => false | _, constant _ => true | constant _, _ => false end.
imports: Coq.PArith.BinPos Coq.PArith.Pnat Coq.Arith.Arith Coq.Classes.RelationClasses Coq.Classes.Morphisms Fiat.Parsers.ContextFreeGrammar.Carriers Fiat.Common.Tactics.SplitInContext Fiat.Common.Notations