mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2025-01-08 06:07:11 +03:00
99dac56e1e
i.e. if an argument has a polymorphic type, we shouldn't allow a concrete type in its place
9 lines
1.4 KiB
Plaintext
9 lines
1.4 KiB
Plaintext
Processing as TTImp
|
|
Written TTC
|
|
Yaffle> \0 m : Main.Nat => \0 a : Type => \ys : (Main.Vect m[1] a[0]) => \0 n : Main.Nat => ys[1]
|
|
Yaffle> \0 m : Main.Nat => \0 a : Type => \0 {k:28} : Main.Nat => \xs : (Main.Vect {k:28}[0] a[1]) => \x : a[2] => \ys : (Main.Vect m[4] a[3]) => \0 n : Main.Nat => (Main.Cons (Main.plus {k:28}[4] m[6]) a[5] x[2] (Main.append m[6] a[5] {k:28}[4] xs[3] ys[1]))
|
|
Yaffle> [((Main.app2 (Main.Nil [Just a = _])) $y) = y, ((Main.app2 ((((Main.Cons [Just k = _]) [Just a = _]) $x) $z)) $y) = ((((Main.Cons [Just k = ((Main.plus {_:199}) m)]) [Just a = a]) x) (((((Main.app2 [Just m = m]) [Just a = a]) [Just n = {_:199}]) z) y))]
|
|
Yaffle> [((Main.zip (Main.Nil [Just a = _])) $y) = (Main.Nil [Just a = ((Main.Pair a) b)]), ((Main.zip ((((Main.Cons [Just k = _]) [Just a = _]) $x) $z)) ((((Main.Cons [Just k = _]) [Just a = _]) $y) $w)) = ((((Main.Cons [Just k = {_:309}]) [Just a = ((Main.Pair a) b)]) ((((Main.MkPair [Just b = b]) [Just a = a]) x) y)) (((((Main.zip [Just b = b]) [Just a = a]) [Just n = {_:309}]) z) w))]
|
|
Yaffle> [(((Main.zipWith $f) (Main.Nil [Just a = _])) $y) = (Main.Nil [Just a = c]), (((Main.zipWith $f) ((((Main.Cons [Just k = _]) [Just a = _]) $x) $z)) ((((Main.Cons [Just k = _]) [Just a = _]) $y) $w)) = ((((Main.Cons [Just k = {_:459}]) [Just a = c]) ((f x) y)) (((((((Main.zipWith [Just n = {_:459}]) [Just c = c]) [Just b = b]) [Just a = a]) f) z) w))]
|
|
Yaffle> Bye for now!
|