diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-10-29 18:58:45 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-10-29 18:58:45 +0000 |
| commit | 82783476f330801b54402bdcc4723add44a963dc (patch) | |
| tree | a1f8e77bf4a8fa32bb52e4e26c06f8acbb136df9 /program/syst-to-primrose.pty | |
| parent | 324e22d7297f506f7ba551f0d1e9aac786ae4622 (diff) | |
Write a fuelled reducer for System T.
Diffstat (limited to 'program/syst-to-primrose.pty')
| -rw-r--r-- | program/syst-to-primrose.pty | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/program/syst-to-primrose.pty b/program/syst-to-primrose.pty deleted file mode 100644 index 4030642..0000000 --- a/program/syst-to-primrose.pty +++ /dev/null @@ -1,41 +0,0 @@ -(\X => - [ Var: Nat - , Zero: <> - , Suc: X - , Rec: <Target: X, Zero: X, Suc: X> - , Abs: X - , App: <Fun: X, Arg: X> - ]) --> -(\X => - [ Var: Nat - , Lit: Nat - , Suc: X - , Abs: X - , App: <Fun: X, Arg: X> - , Unit: <> - , Pair: <Fst: X, Snd: X> - , Fst: X - , Snd: X - , Absurd: <Target: X> - , Inl: X - , Inr: X - , Case: <Target: X, Left: X, Right: X> - , Expand: X - , Contract: X - , Fold: <Target: X, Body: X> - , Let: <Bound: X, Body: X> - , Annot: - < Term: X - , Type: (\Y => - [ Var: Nat - , N: <> - , Arrow: <Dom: Y, Cod: Y> - , Unit: <> - , Pair: <Fst: Y, Snd: Y> - , Bottom: <> - , Sum: <Left: Y, Right: Y> - , Fix: Y - ]) - > - ]) |