# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1258395214 18000
# Node ID 19902d0b662251805eecde6af3599c41f8da82e2
# Parent  4b73ea13574d004c882bd94285d0f41a737c51aa
Fix Extensional type annotations

diff -r 4b73ea13574d -r 19902d0b6622 src/Extensional.v
--- a/src/Extensional.v	Mon Nov 16 12:30:38 2009 -0500
+++ b/src/Extensional.v	Mon Nov 16 13:13:34 2009 -0500
@@ -527,7 +527,9 @@
         : (forall ts, member ts tss -> option (hlist typeDenote ts))
         -> (forall ts, member ts tss -> hlist typeDenote ts -> typeDenote t2)
         -> typeDenote t2 :=
-        match tss with
+        match tss return (forall ts, member ts tss -> option (hlist typeDenote ts))
+          -> (forall ts, member ts tss -> hlist typeDenote ts -> typeDenote t2)
+          -> _ with
           | nil => fun _ _ =>
             default
           | ts :: tss' => fun (envs : forall ts', member ts' (ts :: tss')
@@ -799,7 +801,9 @@
       : (forall ts, member ts tss -> pat t1 ts)
       -> (forall ts, member ts tss -> hlist var ts -> Elab.exp var t2)
       -> choice_tree var t1 (option (Elab.exp var t2)) :=
-      match tss with
+      match tss return (forall ts, member ts tss -> pat t1 ts)
+        -> (forall ts, member ts tss -> hlist var ts -> Elab.exp var t2)
+        -> _ with
         | nil => fun _ _ =>
           everywhere (fun _ => None)
         | ts :: tss' => fun (ps : forall ts', member ts' (ts :: tss') -> pat t1 ts')