proposition: Lemma emits_q_absorbs_inv: forall xi (alpha beta:Reals), ~(Incl_T xi LL)-> ~(Incl_T xi RR) -> ~(Incl_T xi MM) -> emits_q xi alpha beta -> emits_q (right_product (left_product xi (hd alpha)) (hd beta)) (tl alpha) (tl beta).
proof: Proof. destruct 4; trivial; contradiction. Defined.
imports: digits