fact: Fixpoint create_mat (n:nat) (a:A) {struct n}: matrix n := match n as u return matrix u with | 0 => a | S n' => (a,(@create_vec n' a, (create_vec n' a,create_mat n' a))) end.
imports: Coq(Lia List Setoid Peano_dec Eqdep_dec Ring Zwf Morphisms ZArith) CoLoR(interp)