fact: Fixpoint depth (f:LForm) : nat := match f with | LAT _ => O | LOP _ l => S (max_list depth l) | LIMPL l r => S (max (max_list depth l) (depth r.(elt))) end.
imports: Cdcl.PatriciaR Cdcl.KeyInt Cdcl.ReifClasses Cdcl.Lib Bool Setoid ZifyBool ZArith Uint63 Lia List Cdcl.Syntax Cdcl.Clause