fact: Definition transpose {A m n} : mat A m n -> mat A n m := vfold_right (A:=λ m, mat A n m) (λ m', vzip (λ a, cons a)) (vmake n nil).
imports: Program Bvector List Relations Equations(Equations Signature) Utf8 Arith Wf_nat Bvector