patrick/fsharp-vectors
1
0
Fork 0
mirror of https://github.com/Smaug123/fsharp-vectors synced 2025-10-10 05:38:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Tidy up

Browse Source
This commit is contained in:
Smaug123
2020-05-02 15:21:31 +01:00
parent 6a62871778
commit 8e3cd2a1a1
5 changed files with 85 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Vector/Arithmetic.fs Normal file
View File

@@ -0,0 +1,24 @@
namespace Vector.Naturals
/// Zero, in the Peano encoding of the naturals
type Z =
private
| Z
/// Successor, in the Peano encoding of the naturals
type S<'a> =
private
| S
// Computation rules
static member inline refine< ^n1, ^n2 when ^n1 : (static member refine : ^n1 -> ^n2)> (_ : S<'n1>) : S<'n2> = Unchecked.defaultof<_>
/// Type representing the sum of two naturals
type Add<'a, 'b> =
private
| Add
// Computation rules
static member inline refine (_ : Add<Z, Z>) : Z = Unchecked.defaultof<_>
static member inline refine< ^n1, ^n2> (_ : Add< S< ^n1>, S< ^n2>>) : S<S<Add< ^n1, ^n2>>> = Unchecked.defaultof<_>
static member inline refine< ^n1, ^n2> (_ : Add< Z, ^n1>) : ^n2 = Unchecked.defaultof<_>
static member inline refine< ^n1, ^n2 > (_ : Add< ^n1, Z>) : ^n2 = Unchecked.defaultof<_>