mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
14 lines
201 B
Plaintext
14 lines
201 B
Plaintext
|
|
|
|
natLink : Link.Type
|
|
natLink = typeLink Nat
|
|
|
|
takeLink : Link.Term
|
|
takeLink = termLink List.take
|
|
|
|
dropLink : Link.Term
|
|
dropLink = termLink List.drop
|
|
|
|
> (takeLink == dropLink, natLink == typeLink Nat)
|
|
|