(*****************************************************************************)
(*                                                                           *)
(*                         Expansions                                        *)
(*                                                                           *)
(*****************************************************************************)

(* Specifications: *)
Lemma bracket_expand (x a b c d a1 b1: point) :
x = (a ∨ b) ∧ (c ∨ d) :> vect ->
('[x, a1, b1] =
(-(1)) * '[a, a1, b1] * '[b, c, d]  + '[b, a1, b1] * '[a, c, d])%f.
Lemma bracket_free (x : point) k1 (a: point) k2 (b a1 b1: point) :
x = k1 .* a + k2 .* b :> vect ->
'[x, a1, b1] =
(k1 * '[a, a1, b1] + k2 * '[b, a1, b1] )%f.