1 files changed, 25 insertions, 0 deletions
diff --git a/fp1/week2/camil/TupleOverloading.dcl b/fp1/week2/camil/TupleOverloading.dcl
new file mode 100644
index 0000000..6831948
--- /dev/null
+++ b/fp1/week2/camil/TupleOverloading.dcl
@@ -0,0 +1,25 @@
+definition module TupleOverloading
+
+import StdEnv
+
+instance +    (a,b)   | + a & + b
+instance +    (a,b,c) | + a & + b & + c
+
+
+instance -    (a,b)   | - a & - b
+instance -    (a,b,c) | - a & - b & - c
+
+instance *    (a,b)   | * a & * b
+instance *    (a,b,c) | * a & * b & * c
+
+instance /    (a,b)   | / a & / b
+instance /    (a,b,c) | / a & / b & / c
+
+instance zero (a,b)   | zero a & zero b
+instance zero (a,b,c) | zero a & zero b & zero c
+
+instance one  (a,b)   | one a & one b
+instance one  (a,b,c) | one a & one b & one c
+
+instance ~    (a,b)   | ~ a & ~ b
+instance ~    (a,b,c) | ~ a & ~ b & ~ c