Add linear pair/dependent pair to the prelude

I'm playing with some linear structures and finding these useful a lot, so good to have a consistent syntax for it. '#' is chosen because it's short, looks a bit like a cross if you look at it from the right angle (!) and so as not to clash with '@@' in preorder reasoning syntax.
2024-12-25 04:33:45 +03:00 · 2020-06-12 11:18:12 +01:00 · 2020-06-12 11:18:12 +01:00 · c9b20911e1
commit c9b20911e1
parent 361d2e4d88
23 changed files with 91 additions and 118 deletions
--- a/docs/source/app/linear.rst
+++ b/docs/source/app/linear.rst
@ -83,7 +83,7 @@ access the resource directly:
 .. code-block:: idris

    data Res : (a : Type) -> (a -> Type) -> Type where
-         (@@) : (val : a) -> (1 resource : r val) -> Res a r
+         (#) : (val : a) -> (1 resource : r val) -> Res a r

    login : (1 s : Store LoggedOut) -> (password : String) ->
            Res Bool (\ok => Store (if ok then LoggedIn else LoggedOut))
@ -91,7 +91,7 @@ access the resource directly:
    readSecret : (1 s : Store LoggedIn) -> 
                 Res String (const (Store LoggedIn))

-``Res`` is defined in ``Control.App`` since it is commonly useful.  It is a
+``Res`` is defined in the Prelude, since it is commonly useful.  It is a
 dependent pair type, which associates a value with a linear resource.
 We'll leave the other definitions abstract, for the purposes of this
 introductory example.
@ -108,10 +108,10 @@ secret data. It uses ``let (>>=) = bindL`` to redefine
          do putStr "Password: "
             password <- getStr
             connect $ \s =>
-               do let True @@ s = login s password
-                    | False @@ s => do putStrLn "Wrong password"
-                                       disconnect s
-                  let str @@ s = readSecret s
+               do let True # s = login s password
+                    | False # s => do putStrLn "Wrong password"
+                                      disconnect s
+                  let str # s = readSecret s
                  putStrLn $ "Secret: " ++ show str
                  let s = logout s
                  disconnect s
@ -237,10 +237,10 @@ hard coded password and internal data:

      login (MkStore str) pwd
          = if pwd == "Mornington Crescent"
-               then pure1 (True @@ MkStore str)
-               else pure1 (False @@ MkStore str)
+               then pure1 (True # MkStore str)
+               else pure1 (False # MkStore str)
      logout (MkStore str) = pure1 (MkStore str)
-      readSecret (MkStore str) = pure1 (str @@ MkStore str)
+      readSecret (MkStore str) = pure1 (str # MkStore str)

      disconnect (MkStore _)
          = putStrLn "Door destroyed"
--- a/libs/base/Control/App.idr
+++ b/libs/base/Control/App.idr
@ -339,8 +339,6 @@ HasErr Void e => PrimIO e where
                    $ \_ =>
               MkAppRes (Right ())

-infix 5 @@
-
 export
 new1 :  t -> (1 p : State tag t e => App1 {u} e a) -> App1 {u} e a
 new1 val prog
@ -349,10 +347,6 @@ new1 val prog
            MkApp1 res = prog @{st} in
            res

-public export
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (val : a) -> (1 r : t val) -> Res a t
-
 public export
 data FileEx = GenericFileEx Int -- errno
            | FileReadError
--- a/libs/prelude/Builtin.idr
+++ b/libs/prelude/Builtin.idr
@ -67,22 +67,36 @@ snd (x, y) = y
 -- This directive tells auto implicit search what to use to look inside pairs
 %pair Pair fst snd

-||| Dependent pairs aid in the construction of dependent types by providing
-||| evidence that some value resides in the type.
-|||
-||| Formally, speaking, dependent pairs represent existential quantification -
-||| they consist of a witness for the existential claim and a proof that the
-||| property holds for it.
-|||
-||| @ a the value to place in the type.
-||| @ p the dependent type that requires the value.
+infix 5 #
+
+||| A pair type for use in operations on linear resources, which return a
+||| value and an updated resource
+public export
+data LPair : Type -> Type -> Type where
+     (#) : (x : a) -> (1 _ : b) -> LPair a b
+
 namespace DPair
+  ||| Dependent pairs aid in the construction of dependent types by providing
+  ||| evidence that some value resides in the type.
+  |||
+  ||| Formally, speaking, dependent pairs represent existential quantification -
+  ||| they consist of a witness for the existential claim and a proof that the
+  ||| property holds for it.
+  |||
+  ||| @ a the value to place in the type.
+  ||| @ p the dependent type that requires the value.
  public export
  record DPair a (p : a -> Type) where
    constructor MkDPair
    fst : a
    snd : p fst

+  ||| A dependent variant of LPair, pairing a result value with a resource
+  ||| that depends on the result value
+  public export
+  data Res : (a : Type) -> (a -> Type) -> Type where
+       (#) : (val : a) -> (1 r : t val) -> Res a t
+
 -- The empty type

 ||| The empty type, also known as the trivially false proposition.
--- a/tests/ideMode/ideMode001/expected
+++ b/tests/ideMode/ideMode001/expected
@ -2,13 +2,13 @@
 000038(:write-string "1/1: Building LocType (LocType.idr)" 1)
 0000ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 23) (:end 7 25)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "a")))))) 1)
 0000d8(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 38) (:end 8 1)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect m a)")))))) 1)
-0000df(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 35) (:end 7 38)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect {k:260} a)")))))) 1)
-0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 9) (:end 7 11)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "?{_:261}_[]")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 14) (:end 7 16)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{k:260}_[] ?{_:261}_[])")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 18) (:end 7 21)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:262}_[] ?{_:261}_[])")))))) 1)
+0000df(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 35) (:end 7 38)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect {k:269} a)")))))) 1)
+0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 9) (:end 7 11)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "?{_:270}_[]")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 14) (:end 7 16)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{k:269}_[] ?{_:270}_[])")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 18) (:end 7 21)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:271}_[] ?{_:270}_[])")))))) 1)
 0000d8(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 16) (:end 7 1)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect m a)")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 11) (:end 6 14)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:251}_[] ?{_:250}_[])")))))) 1)
-0001ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 1) (:end 6 1)) ((:name "Main.append") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "{0 m : Prelude.Nat} -> {0 a : Type} -> {0 n : Prelude.Nat} -> (({arg:241} : (Main.Vect n[0] a[1])) -> (({arg:242} : (Main.Vect m[3] a[2])) -> (Main.Vect (Prelude.+ Prelude.Nat Prelude.Num implementation at Prelude.idr:849:1--856:1 n[2] m[4]) a[3])))")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 11) (:end 6 14)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:260}_[] ?{_:259}_[])")))))) 1)
+0001ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 1) (:end 6 1)) ((:name "Main.append") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "{0 m : Prelude.Nat} -> {0 a : Type} -> {0 n : Prelude.Nat} -> (({arg:250} : (Main.Vect n[0] a[1])) -> (({arg:251} : (Main.Vect m[3] a[2])) -> (Main.Vect (Prelude.+ Prelude.Nat Prelude.Num implementation at Prelude.idr:849:1--856:1 n[2] m[4]) a[3])))")))))) 1)
 0000cb(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 47) (:end 6 1)) ((:name "a") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Type")))))) 1)
 0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 44) (:end 5 45)) ((:name "m") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Prelude.Nat")))))) 1)
 0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 40) (:end 5 42)) ((:name "n") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Prelude.Nat")))))) 1)
--- a/tests/ideMode/ideMode003/expected
+++ b/tests/ideMode/ideMode003/expected
@ -2,13 +2,13 @@
 000038(:write-string "1/1: Building LocType (LocType.idr)" 1)
 0000ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 23) (:end 7 25)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "a")))))) 1)
 0000d8(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 38) (:end 8 1)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect m a)")))))) 1)
-0000df(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 35) (:end 7 38)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect {k:260} a)")))))) 1)
-0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 9) (:end 7 11)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "?{_:261}_[]")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 14) (:end 7 16)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{k:260}_[] ?{_:261}_[])")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 18) (:end 7 21)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:262}_[] ?{_:261}_[])")))))) 1)
+0000df(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 35) (:end 7 38)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect {k:269} a)")))))) 1)
+0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 9) (:end 7 11)) ((:name "x") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "?{_:270}_[]")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 14) (:end 7 16)) ((:name "xs") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{k:269}_[] ?{_:270}_[])")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 7 18) (:end 7 21)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:271}_[] ?{_:270}_[])")))))) 1)
 0000d8(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 16) (:end 7 1)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect m a)")))))) 1)
-0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 11) (:end 6 14)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:251}_[] ?{_:250}_[])")))))) 1)
-0001ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 1) (:end 6 1)) ((:name "Main.append") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "{0 m : Prelude.Nat} -> {0 a : Type} -> {0 n : Prelude.Nat} -> (({arg:241} : (Main.Vect n[0] a[1])) -> (({arg:242} : (Main.Vect m[3] a[2])) -> (Main.Vect (Prelude.+ Prelude.Nat Prelude.Num implementation at Prelude.idr:849:1--856:1 n[2] m[4]) a[3])))")))))) 1)
+0000ed(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 6 11) (:end 6 14)) ((:name "ys") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "(Main.Vect ?{_:260}_[] ?{_:259}_[])")))))) 1)
+0001ca(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 1) (:end 6 1)) ((:name "Main.append") (:namespace "") (:decor :bound) (:implicit :False) (:key "") (:doc-overview "") (:type "{0 m : Prelude.Nat} -> {0 a : Type} -> {0 n : Prelude.Nat} -> (({arg:250} : (Main.Vect n[0] a[1])) -> (({arg:251} : (Main.Vect m[3] a[2])) -> (Main.Vect (Prelude.+ Prelude.Nat Prelude.Num implementation at Prelude.idr:849:1--856:1 n[2] m[4]) a[3])))")))))) 1)
 0000cb(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 47) (:end 6 1)) ((:name "a") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Type")))))) 1)
 0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 44) (:end 5 45)) ((:name "m") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Prelude.Nat")))))) 1)
 0000d3(:output (:ok (:highlight-source ((((:filename "LocType.idr") (:start 5 40) (:end 5 42)) ((:name "n") (:namespace "") (:decor :type) (:implicit :False) (:key "") (:doc-overview "") (:type "Prelude.Nat")))))) 1)
--- a/tests/idris2/coverage008/expected
+++ b/tests/idris2/coverage008/expected
@ -1,6 +1,6 @@
 1/1: Building wcov (wcov.idr)
 Main> Main.tfoo is total
 Main> Main.wfoo is total
-Main> Main.wbar is not covering due to call to function Main.with block in 1372
+Main> Main.wbar is not covering due to call to function Main.with block in 1376
 Main> Main.wbar1 is total
 Main> Bye for now!
--- a/tests/idris2/coverage010/expected
+++ b/tests/idris2/coverage010/expected
@ -1,3 +1,3 @@
 1/1: Building casetot (casetot.idr)
 casetot.idr:12:1--13:1:main is not covering:
-	Calls non covering function Main.case block in 2071(287)
+	Calls non covering function Main.case block in 2075(296)
--- a/tests/idris2/interactive009/Door.idr
+++ b/tests/idris2/interactive009/Door.idr
@ -22,11 +22,6 @@ One = Use Once
 Any : (Type -> Type) -> Type -> Type
 Any = Use Many

-infix 2 @@
-
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (x : a) -> (1 res : r x) -> Res a r
-
 data DoorState = Closed | Open

 data Door : DoorState -> Type where
@ -57,7 +52,7 @@ doorProg2
         r <- openDoor d
         let x = 42
         case r of
-              (res @@ d) => ?now_1
+              (res # d) => ?now_1

 doorProg3 : Any m ()
 doorProg3
@ -65,5 +60,5 @@ doorProg3
         r <- openDoor d
         let x = 42
         case r of
-              (True @@ d) => ?now_2
-              (False @@ d) => ?now_3
+              (True # d) => ?now_2
+              (False # d) => ?now_3
--- a/tests/idris2/interactive009/expected
+++ b/tests/idris2/interactive009/expected
@ -1,7 +1,7 @@
 1/1: Building Door (Door.idr)
-Main>               (y @@ res) => ?now_4
-Main>               (True @@ d) => ?now_4
-              (False @@ d) => ?now_5
+Main>               (val # y) => ?now_4
+Main>               (True # d) => ?now_4
+              (False # d) => ?now_5
 Main>  0 m : Type -> Type
 1 d : Door Open
   x : Integer
--- a/tests/idris2/interactive009/input
+++ b/tests/idris2/interactive009/input
@ -1,5 +1,5 @@
-:cs 52 15 what
-:cs 60 16 res
+:cs 47 15 what
+:cs 55 16 res
 :t now_2
 :t now_3
 :q
--- a/tests/idris2/linear005/Linear.idr
+++ b/tests/idris2/linear005/Linear.idr
@ -30,9 +30,3 @@ One = Use Once
 public export
 Any : (Type -> Type) -> Type -> Type
 Any = Use Many
-
-infix 2 @@
-
-public export
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (x : a) -> (1 res : r x) -> Res a r
--- a/tests/idris2/linear008/Door.idr
+++ b/tests/idris2/linear008/Door.idr
@ -56,12 +56,6 @@ public export
 Any : (Type -> Type) -> Type -> Type
 Any m = Lin m Many

-infix 2 @@
-
-public export
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (val : a) -> (1 resource : r val) -> Res a r
-
 data DoorState = Closed | Open

 -- changes start here
--- a/tests/idris2/literate006/Door.lidr
+++ b/tests/idris2/literate006/Door.lidr
@ -22,11 +22,6 @@
 > Any : (Type -> Type) -> Type -> Type
 > Any = Use Many

-> infix 2 @@
-
-> data Res : (a : Type) -> (a -> Type) -> Type where
->      (@@) : (x : a) -> (1 res : r x) -> Res a r
-
 > data DoorState = Closed | Open

 > data Door : DoorState -> Type where
@ -57,7 +52,7 @@
 >          r <- openDoor d
 >          let x = 42
 >          case r of
->               (res @@ d) => ?now_1
+>               (res # d) => ?now_1

 > doorProg3 : Any m ()
 > doorProg3
@ -65,5 +60,5 @@
 >          r <- openDoor d
 >          let x = 42
 >          case r of
->               (True @@ d) => ?now_2
->               (False @@ d) => ?now_3
+>               (True # d) => ?now_2
+>               (False # d) => ?now_3
--- a/tests/idris2/literate006/expected
+++ b/tests/idris2/literate006/expected
@ -1,7 +1,7 @@
 1/1: Building Door (Door.lidr)
-Main> >               (y @@ res) => ?now_4
-Main> >               (True @@ d) => ?now_4
->               (False @@ d) => ?now_5
+Main> >               (val # y) => ?now_4
+Main> >               (True # d) => ?now_4
+>               (False # d) => ?now_5
 Main>  0 m : Type -> Type
 1 d : Door Open
   x : Integer
--- a/tests/idris2/literate006/input
+++ b/tests/idris2/literate006/input
@ -1,5 +1,5 @@
-:cs 52 17 what
-:cs 60 18 res
+:cs 47 17 what
+:cs 55 18 res
 :t now_2
 :t now_3
 :q
--- a/tests/idris2/real001/Channel.idr
+++ b/tests/idris2/real001/Channel.idr
@ -134,11 +134,11 @@ tryRecv (MkChannel lock cond_lock cond local remote)
         case dequeue rq of
              Nothing =>
                  do lift $ mutexRelease lock
-                     pure (Nothing @@ MkChannel lock cond_lock cond local remote)
+                     pure (Nothing # MkChannel lock cond_lock cond local remote)
              Just (rq', Entry {any} val) =>
                  do lift $ writeIORef local rq'
                     lift $ mutexRelease lock
-                     pure (Just (believe_me {a=any} val) @@
+                     pure (Just (believe_me {a=any} val) #
                           MkChannel lock cond_lock cond local remote)

 -- blocks until the message is there
@ -158,7 +158,7 @@ recv (MkChannel lock cond_lock cond local remote)
              Just (rq', Entry {any} val) =>
                  do lift $ writeIORef local rq'
                     lift $ mutexRelease lock
-                     pure (believe_me {a=any} val @@
+                     pure (believe_me {a=any} val #
                           MkChannel lock cond_lock cond local remote)

 export
@ -180,14 +180,14 @@ timeoutRecv (MkChannel lock cond_lock cond local remote) timeout
                     lift $ mutexAcquire cond_lock
                     lift $ conditionWaitTimeout cond cond_lock timeout
                     lift $ mutexRelease cond_lock
-                     res @@ chan <- tryRecv {ty} {next} (MkChannel lock cond_lock cond local remote)
+                     res # chan <- tryRecv {ty} {next} (MkChannel lock cond_lock cond local remote)
                     case res of
-                          Nothing => pure (Nothing @@ chan)
-                          Just res => pure (Just res @@ chan)
+                          Nothing => pure (Nothing # chan)
+                          Just res => pure (Just res # chan)
              Just (rq', Entry {any} val) =>
                  do lift $ writeIORef local rq'
                     lift $ mutexRelease lock
-                     pure (Just (believe_me {a=any} val) @@
+                     pure (Just (believe_me {a=any} val) #
                           MkChannel lock cond_lock cond local remote)

 export
--- a/tests/idris2/real001/Linear.idr
+++ b/tests/idris2/real001/Linear.idr
@ -54,13 +54,6 @@ public export
 Any : (Type -> Type) -> Type -> Type
 Any m = Lin m Many

-infix 2 @@
-
-public export
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (val : a) -> (1 resource : r val) -> Res a r
-
-
 {-
 data DoorState = Closed | Open

--- a/tests/idris2/real001/MakeChans.idr
+++ b/tests/idris2/real001/MakeChans.idr
@ -18,12 +18,12 @@ Utils

 utilServer : (1 chan : Server Utils) -> Any IO ()
 utilServer chan
-    = do cmd @@ chan <- recv chan
+    = do cmd # chan <- recv chan
         case cmd of
-              Add => do (x, y) @@ chan <- recv chan
+              Add => do (x, y) # chan <- recv chan
                        chan <- send chan (x + y)
                        close chan
-              Append => do (x, y) @@ chan <- recv chan
+              Append => do (x, y) # chan <- recv chan
                           chan <- send chan (x ++ y)
                           close chan

@ -35,7 +35,7 @@ MakeUtils = do cmd <- Request Bool

 sendUtils : (1 chan : Server MakeUtils) -> Any IO ()
 sendUtils chan
-    = do cmd @@ chan <- recv chan
+    = do cmd # chan <- recv chan
         if cmd
            then do cchan <- Channel.fork utilServer
                    chan <- send chan cchan
@ -46,7 +46,7 @@ getUtilsChan : (1 chan : Client MakeUtils) ->
               One IO (Client Utils, Client MakeUtils)
 getUtilsChan chan
    = do chan <- send chan True
-         cchan @@ chan <- recv chan
+         cchan # chan <- recv chan
         pure (cchan, chan)

 closeUtilsChan : (1 chan : Client MakeUtils) ->
@ -69,12 +69,12 @@ doThings
         uchan1 <- send uchan1 Add
         uchan2 <- send uchan2 Append
         uchan2 <- send uchan2 ("aaa", "bbb")
-         res @@ uchan2 <- recv uchan2
+         res # uchan2 <- recv uchan2
         close uchan2
         lift $ printLn res

         uchan1 <- send uchan1 (40, 54)
-         res @@ uchan1 <- recv uchan1
+         res # uchan1 <- recv uchan1
         close uchan1

         lift $ printLn res
--- a/tests/idris2/real001/TestProto.idr
+++ b/tests/idris2/real001/TestProto.idr
@ -18,14 +18,14 @@ testClient chan
         lift $ putStrLn "Sending value"
         chan <- send chan False
         lift $ putStrLn "Sent"
-         c @@ chan <- recv chan
+         c # chan <- recv chan
         lift $ putStrLn ("Result: " ++ c)
         close chan

 testServer : (1 chan : Server TestProto) -> Any IO ()
 testServer chan
    = do lift $ putStrLn "Waiting"
-         cmd @@ chan <- recv chan
+         cmd # chan <- recv chan
         lift $ putStrLn ("Received " ++ show cmd)
         lift $ sleep 1
         lift $ putStrLn "Sending answer"
--- a/tests/idris2/real002/Control/App.idr
+++ b/tests/idris2/real002/Control/App.idr
@ -339,12 +339,6 @@ HasErr Void e => PrimIO e where
                    $ \_ =>
               MkAppRes (Right ())

-infix 5 @@
-
-public export
-data Res : (a : Type) -> (a -> Type) -> Type where
-     (@@) : (val : a) -> (1 r : t val) -> Res a t
-
 public export
 data FileEx = GenericFileEx Int -- errno
            | FileReadError
--- a/tests/idris2/real002/Store.idr
+++ b/tests/idris2/real002/Store.idr
@ -23,10 +23,10 @@ Has [Console] e => StoreI e where

  login (MkStore str) pwd
      = if pwd == "Mornington Crescent"
-           then pure1 (True @@ MkStore str)
-           else pure1 (False @@ MkStore str)
+           then pure1 (True # MkStore str)
+           else pure1 (False # MkStore str)
  logout (MkStore str) = pure1 (MkStore str)
-  readSecret (MkStore str) = pure1 (str @@ MkStore str)
+  readSecret (MkStore str) = pure1 (str # MkStore str)

  disconnect (MkStore _)
      = putStrLn "Door destroyed"
@ -38,11 +38,11 @@ storeProg
         s <- connect
         app $ putStr "Password: "
         pwd <- app $ getStr
-         True @@ s <- login s pwd
-              | False @@ s => do app $ putStrLn "Login failed"
-                                 app $ disconnect s
+         True # s <- login s pwd
+              | False # s => do app $ putStrLn "Login failed"
+                                app $ disconnect s
         app $ putStrLn "Logged in"
-         secret @@ s <- readSecret s
+         secret # s <- readSecret s
         app $ putStrLn ("Secret: " ++ secret)
         s <- logout s 
         app $ putStrLn "Logged out"
--- a/tests/idris2/real002/StoreL.idr
+++ b/tests/idris2/real002/StoreL.idr
@ -25,8 +25,8 @@ login : (1 s : Store LoggedOut) -> (password : String) ->
        Res Bool (\ok => Store (if ok then LoggedIn else LoggedOut))
 login (MkStore secret) password
    = if password == "Mornington Crescent"
-         then True @@ MkStore secret
-         else False @@ MkStore secret
+         then True # MkStore secret
+         else False # MkStore secret

 logout : (1 s : Store LoggedIn) -> Store LoggedOut
 logout (MkStore secret) = MkStore secret
@ -37,9 +37,9 @@ storeProg
        do putStr "Password: "
           password <- Console.getStr
           connect $ \s =>
-             do let True @@ s = login s password
-                       | False @@ s => do putStrLn "Incorrect password"
-                                          disconnect s
+             do let True # s = login s password
+                       | False # s => do putStrLn "Incorrect password"
+                                         disconnect s
                putStrLn "Door opened"
                let s = logout s 
                putStrLn "Door closed"
--- a/tests/idris2/reflection003/expected
+++ b/tests/idris2/reflection003/expected
@ -12,4 +12,4 @@ Error during reflection: Still not trying
 refprims.idr:43:10--45:1:While processing right hand side of dummy3 at refprims.idr:43:1--45:1:
 Error during reflection: Undefined name
 refprims.idr:46:10--48:1:While processing right hand side of dummy4 at refprims.idr:46:1--48:1:
-Error during reflection: failed after generating Main.{plus:6078}
+Error during reflection: failed after generating Main.{plus:6087}