AZ
x
и доказательство что x % 2 == 0
? очень крутоSize: a a a
AZ
В
x
и доказательство что x % 2 == 0
? очень крутоp
S
SP
G
AZ
module Main
infix 4 :+:
data Vect : Nat -> Type -> Type where
Nil : Vect Z a
(:+:) : a -> Vect k a -> Vect (S k) a
testFunc : (Vect n a) -> (Vect m a) -> (n = m) -> Integer
testFunc _ _ _ = 50
foo : Integer
foo = let arr = (1 :+: (2 :+: (3 :+: Nil)))
arrWithFour = 4 :+: arr
in testFunc arr arrWithFour Refl
main : IO ()
main = putStrLn "Hello world"
main = putStrLn "Hello world"
AZ
AZ
G
module Main
infix 4 :+:
data Vect : Nat -> Type -> Type where
Nil : Vect Z a
(:+:) : a -> Vect k a -> Vect (S k) a
testFunc : (Vect n a) -> (Vect m a) -> (n = m) -> Integer
testFunc _ _ _ = 50
foo : Integer
foo = let arr = (1 :+: (2 :+: (3 :+: Nil)))
arrWithFour = 4 :+: arr
in testFunc arr arrWithFour Refl
main : IO ()
main = putStrLn "Hello world"
main = putStrLn "Hello world"
>
не вижуAZ
>
не вижуp
G
>
спрашивалAZ
AZ
G
p
AZ
S
G