mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-27 05:34:40 +03:00
14 lines
259 B
Idris
14 lines
259 B
Idris
|
import Data.Vect
|
||
|
|
import Data.Fin
|
||
|
|
|
||
|
|
Vect_ext : (v : Vect n a) -> (w : Vect n a) -> ((i : Fin n) -> index i v = index i w)
|
||
|
|
-> v = w
|
||
|
|
|
||
|
|
Weird : (v: Vect n a) -> v = v
|
||
|
|
Weird v = Vect_ext ?hole0 ?hole1 ?hole2
|
||
|
|
|
||
|
|
f : Bool -> Nat
|
||
|
|
f True = 0
|
||
|
|
f True = ?help
|
||
|
|
f False = 1
|