fact: Fixpoint vars (e: expr A): list A := match e with | e_bot | e_top => [] | e_cup x y | e_cap x y => union (vars x) (vars y) | e_neg x => vars x | e_var x => [x] end.
imports: positives comparisons lattice lset sups