mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-21 22:17:19 +03:00
6 lines
149 B
Idris
6 lines
149 B
Idris
module usubst
|
|
|
|
total unsafeSubst : (P : a -> Type) -> (x : a) -> (y : a) -> P x -> P y
|
|
unsafeSubst P x y px with (Z)
|
|
unsafeSubst P x x px | _ = px
|