fact: Definition compare (f1 f2:LForm) : comparison := match f1, f2 with | LAT i , LAT j => i ?= j | LAT i , _ => Lt | _ , LAT i => Gt | LOP o1 l1 , LOP o2 l2 => match lop_compare o1 o2 with | Eq => list_compare l1 l2 | x => x end | LOP _ _ , _ => Lt | _ , LOP _ _ => Gt | LIMPL l1 f1 , LIMPL l2 f2 => match f1.(id) ?= f2.(id) with | Eq => list_compare l1 l2 | x => x end end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause