diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-12-29 14:12:03 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-12-29 14:12:03 -0500 |
| commit | 8d6870717691d2ba46e518c8d1687236019368d1 (patch) | |
| tree | c952c50d84aa3510057f79a404bbc4eeb37666b7 /lib | |
| parent | 4489a47a9f033309663b611f04c4e03d5a00dec2 (diff) | |
Rename [Top.id] to avoid clash with [Basis.id]
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ur/top.ur | 2 | ||||
| -rw-r--r-- | lib/ur/top.urs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/ur/top.ur b/lib/ur/top.ur index 2741aa28..e504204e 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -51,7 +51,7 @@ end fun not b = if b then False else True -con id = K ==> fn t :: K => t +con ident = K ==> fn t :: K => t con record (t :: {Type}) = $t con fst = K1 ==> K2 ==> fn t :: (K1 * K2) => t.1 con snd = K1 ==> K2 ==> fn t :: (K1 * K2) => t.2 diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 75d85fcd..489e744d 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -22,7 +22,7 @@ end val not : bool -> bool (* Type-level identity function *) -con id = K ==> fn t :: K => t +con ident = K ==> fn t :: K => t (* Type-level function which yields the value-level record described by the given type-level record *) |