diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2025-01-30 16:57:47 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2025-03-13 13:20:29 +0000 |
| commit | f5b75edd91389f0a45045b707abfa36c746e8d54 (patch) | |
| tree | c675419958ad913d111ebda51c5863a752768577 /program/reducer.prim | |
| parent | 3f4e0844880a43ae113f75711bfcb60b9f22a4dd (diff) | |
Modify definition of data types.
Diffstat (limited to 'program/reducer.prim')
| -rw-r--r-- | program/reducer.prim | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/program/reducer.prim b/program/reducer.prim index 3abbc97..af3abd5 100644 --- a/program/reducer.prim +++ b/program/reducer.prim @@ -1,14 +1,14 @@ let Bool = [T: <>; F: <>] in let or (x : Bool) (y : Bool) : Bool = case x of {T u => T <>; F u => y} in let SysT = - (\T => + data T [ Var: Nat ; Zero: <> ; Suc: T ; Primrec: <Zero: T; Suc: T; Target: T> ; Abs: T ; App: <Fun: T; Arg: T> - ]) + ] in let Stepped = <Term: SysT; Smaller: Bool> in let lift (f : Nat -> Nat) (n : Nat) : Nat = |