fact: Fixpoint cll_ill f := match f with | cll_var v => ill_var v | cll_cst cll_bot => ill_cst ill_bot | cll_cst cll_top => ill_cst ill_top | cll_cst cll_1 => ill_cst ill_1 | cll_una cll_bang f => ill_ban ⟨f⟩ | cll_bin cll_times f g => ill_bin ill_times ⟨f⟩ ⟨g⟩ | cll_bin cll_with f g => ill_bin ill_with ⟨f⟩ ⟨g⟩ | cll_bin cll_plus f g => ill_bin ill_plus ⟨f⟩ ⟨g⟩ | cll_bin cll_limp f g => ill_bin ill_limp ⟨f⟩ ⟨g⟩ | _ => ill_cst ill_bot end where "⟨ f ⟩" := (cll_ill f).
imports: List Permutation Undecidability.Shared.Libs.DLW(utils) Undecidability.ILL(ILL CLL)