Skip to content

Instantly share code, notes, and snippets.

@MarcelineVQ

MarcelineVQ/gist:621aa33303366a08a0c3fe5383521eca

Created October 21, 2019 17:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save MarcelineVQ/621aa33303366a08a0c3fe5383521eca to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save MarcelineVQ/621aa33303366a08a0c3fe5383521eca to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
mutual
data Trampoline : (m : Type -> Type) -> (r : Type) -> Type where
MkTram : m (TrampOneOR m r) -> Trampoline m r
data TrampOneOR : (m : Type -> Type) -> (r : Type) -> Type where
Loft : Trampoline m r -> TrampOneOR m r
Roght : r -> TrampOneOR m r
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment