...

[helm.git] / matita / matita / lib / extraction.ma

diff --git a/matita/matita/lib/extraction.ma b/matita/matita/lib/extraction.ma
index 8e46509fa9696eff17821b5def068ddafb993ba4..a1c49f8f0c2f35b04370f11d8cd4a2b1cd060dfe 100644 (file)
--- a/matita/matita/lib/extraction.ma
+++ b/matita/matita/lib/extraction.ma
@@ -145,6 +145,25 @@ 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)).
+
+definition rtest2 : nat → stream → nat ≝
+ λm,s. match s with [ scons n l ⇒ m + 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 ].*)