mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-22 12:21:30 +03:00
e6292acdf0
This involved implementing the 'TryWithImplicits' hack for allowing unbound implicits in types with case blocks
13 lines
418 B
Idris
13 lines
418 B
Idris
natElim : (p : Nat -> Type) -> p Z -> ((k : Nat) -> p k -> p (S k)) ->
|
|
(x : Nat) -> p x
|
|
|
|
natElim2 : (p : Nat -> Type) -> p Z -> ((k : Nat) -> p k -> p (S k)) ->
|
|
(x : Nat) -> p x
|
|
natElim2 p x f Z = x
|
|
natElim2 p x f (S k) = ?foo
|
|
|
|
listElim : (p : List a -> Type) ->
|
|
(mnil : p []) ->
|
|
(mcons : (x : _) -> (xs : List a) -> p xs -> p (x :: xs)) ->
|
|
(xs : List a) -> p xs
|