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