proposition: Lemma emits_h_absorbs_inv: forall mu (alpha:Reals), ~(Incl_M mu LL)-> ~(Incl_M mu RR) -> ~(Incl_M mu MM) -> emits_h mu alpha -> emits_h (product mu (hd alpha)) (tl alpha).
proof: Proof. destruct 4; trivial; contradiction. Defined.
imports: digits