fact: Fixpoint imsell_tps (A : imsell_form nat bang) x : Prop := match A with | £ X => s X x | ![m]A => ⟦A⟧ x /\ K m x | A⊸B => (⟦A⟧-⊛⟦B⟧) x end where "⟦ A ⟧" := (imsell_tps A).
imports: List Permutation Undecidability.ILL(IMSELL) Undecidability.Shared.Libs.DLW(utils pos vec)