12 lines
495 B
Text
12 lines
495 B
Text
Set: pp::colors
|
||
Set: pp::unicode
|
||
Imported 'Int'
|
||
Defined: revapp
|
||
10 |> (λ x : ℕ, x + 1) |> (λ x : ℕ, x + 2) |> (λ x : ℕ, 2 * x) |> (λ x : ℕ, 3 - x) |> (λ x : ℤ, x + 2) :
|
||
(λ x : ℤ, ℤ) (10 |> (λ x : ℕ, x + 1) |> (λ x : ℕ, x + 2) |> (λ x : ℕ, 2 * x) |> (λ x : ℕ, 3 - x))
|
||
Defined: revcomp
|
||
(λ x : ℕ, x + 1) #> (λ x : ℕ, 2 * x * x) #> (λ x : ℕ, 10 + x) : ℕ → ℕ
|
||
Defined: simple
|
||
simple : ℕ → ℕ
|
||
Defined: simple2
|
||
simple2 : ℤ → ℤ
|