1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-26 21:23:53 +03:00
Idris2/tests/idris2/data/record019/BindParams.idr
2023-09-07 14:57:22 +01:00

22 lines
512 B
Idris

%logging "declare.record.parameters" 60
-- used to fail with:
-- While processing type of .prf. Can't solve constraint between: ?a [no locals in scope] and rec .a.
record HasLength (xs : List a) (n : Nat) where
constructor MkHasLength
0 prf : length xs === n
data Vect : Type -> Nat -> Type where
record Harder (eq : xs === ys) (zs : Vect a n) (eq2 : zs === xs) where
parameters {a, b : Type}
Product : Type
Product = (a, b)
record EtaProof (p : Product) where
0 eta : p === (fst p, snd p)