Prenex Implicits val_genK in_genK.

(* Specifications: *)
Lemma val_gen_rV (w : 'rV_nA) :
val_gen w = mxvec (\matrix_j val (w 0 j)) *m base.
Lemma in_gen_row W (i : 'I_m) : in_gen (row i W) = row i (in_gen W).
Lemma val_genZ x : {morph @val_gen m : W / x *: W >-> W *m mxval x}.
End Bijection2.
Lemma submx_in_gen m1 m2 (U : 'M_(m1, n)) (V : 'M_(m2, n)) :
(U <= V -> in_gen U <= in_gen V)%MS.
Lemma submx_in_gen_eq m1 m2 (U : 'M_(m1, n)) (V : 'M_(m2, n)) :
(V *m A <= V -> (in_gen U <= in_gen V) = (U <= V))%MS.