fact: Fixpoint eval_expr {n:nat} (eval_var:LAB n -> Label) (e: rule_expr n) : Label := match e with | L_Bot _ => L | L_Var labv => eval_var labv | L_Join e1 e2 => (eval_expr eval_var e1) ∪ (eval_expr eval_var e2) end.
imports: List Lia Utils Coq.Unicode.Utf8 Coq.Vectors.Vector