fact: Definition mk_eval_var {n:nat} (vs:Vector.t Label n) (pc:Label) : LAB n -> Label := fun lv => match lv with | lab1 p => nth_order vs p | lab2 p => nth_order vs p | lab3 p => nth_order vs p | labpc _ => pc end.
imports: List Lia Utils Coq.Unicode.Utf8 Coq.Vectors.Vector