From ca81bd9ba941c3c14e8775c7f04ce10ec277348a Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 2 Aug 2012 18:16:44 +0000
Subject: [PATCH] ...

---
 matita/matita/lib/Makefile      |  1 +
 matita/matita/lib/extraction.ma | 18 +++++++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/matita/matita/lib/Makefile b/matita/matita/lib/Makefile
index 077e945ce..b7d95a5fc 100644
--- a/matita/matita/lib/Makefile
+++ b/matita/matita/lib/Makefile
@@ -6,3 +6,4 @@ all:
 .PHONY: all
 
 # ghci extraction.hs
+# Syntax for datatypes: data Foo = Zero | Succ Foo Foo
diff --git a/matita/matita/lib/extraction.ma b/matita/matita/lib/extraction.ma
index 8e46509fa..bb6af07e0 100644
--- a/matita/matita/lib/extraction.ma
+++ b/matita/matita/lib/extraction.ma
@@ -145,6 +145,22 @@ and g (n:nat) : nat ≝
  [ O ⇒ O
  | S m ⇒ f m ].
 
+(*BUG: pattern matching patterns when arguments have been deleted from
+  the constructor are wrong *)
+
+(*BUG: constructor names in pattern should be capitalised correctly;
+  name clashes must be avoided*)
+
 coinductive stream: Type[0] ≝ scons : nat → stream → stream.
 
-let corec div (n:nat) : stream ≝ scons n (div (S n)).
\ No newline at end of file
+let corec div (n:nat) : stream ≝ scons n (div (S n)).
+
+(*
+let rec mkterm (n:nat) : nat ≝
+ match n with
+ [ O ⇒ O
+ | S m ⇒ mkterm m ]
+and mktyp (n:nat) : Type[0] ≝
+ match n with
+ [ O ⇒ nat
+ | S m ⇒ mktyp m ].*)
-- 
2.39.2