From mathcomp
From mathcomp
From mathcomp
From mathcomp
Set Implicit Arguments.
Unset Strict Implicit.
Unset Printing Implicit Defensive.
Local Open Scope ring_scope.
Section Aux.
Definition andb_assoc := Bool.andb_assoc.
Variable R : realFieldType.
Variable n : nat.
Definition Vector := 'rV[R]_(n.+1).
Implicit Types (v : Vector).

Lemma eq_div_scale (V : lmodType R) (s1 s2 : R) (x y : V) :
s2 != 0 -> (x == (s1/s2) *: y) = (s2 *: x == s1 *: y).