fact: Fixpoint insert (v : nat) (vars : list NVar) : list NVar := match vars with | [] => [nvar v] | (nvar x) :: xs => if lt_dec x v then nvar x :: insert v xs else if eq_nat_dec x v then vars else (nvar v) :: vars end.
imports: list Omega