fact: Fixpoint mxi (n : nat) : forall i, lt i n -> monom n := match n as n return forall i, lt i n -> monom n with | O => fun i h => False_rec (monom O) (Nat.nlt_0_r h) | S n' => fun i => match i as i return lt i (S n') -> monom (S n') with | O => fun _ => Vcons (S O) (mone n') | S _ => fun h => Vcons O (mxi (NatCompat.lt_S_n h)) end end.
imports: CoLoR(VecUtil LogicUtil NatUtil) Coq(Arith List Lia)