mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-17 00:10:31 +03:00
10 lines
230 B
Idris
10 lines
230 B
Idris
transport : (0 eq : a === b) -> a -> b
|
|
transport eq x = rewrite sym eq in x
|
|
|
|
nested : (0 _ : a === b) -> (0 _ : b === c) -> a === c
|
|
nested eq1 eq2 =
|
|
rewrite eq1 in
|
|
rewrite eq2 in
|
|
let prf : c === c := Refl in
|
|
prf
|