Definition andb_assoc := Bool.andb_assoc.Implicit Types (v : (@Vector R n)).

Lemma bet_gt0' (k1 k2 k3 : R) : 0 < k1 -> 0 < k2 -> k1 < 1 -> 0 < k3 -> 0 < ((k1+k2-k1*k2)/k3)^-1.