changeset 225:19902d0b6622

Fix Extensional type annotations
author Adam Chlipala <adamc@hcoop.net>
date Mon, 16 Nov 2009 13:13:34 -0500
parents 4b73ea13574d
children 9d0b9577f8b1
files src/Extensional.v
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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')