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_pick_neq0 v : (fun k => v 0 k != 0) =1 (fun k => (- v) 0 k != 0).