]> matita.cs.unibo.it Git - helm.git/commitdiff
you can case even if only a right appears... so, substituting them for metas is wrong...
authorEnrico Tassi <enrico.tassi@inria.fr>
Tue, 10 Apr 2007 14:24:30 +0000 (14:24 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Tue, 10 Apr 2007 14:24:30 +0000 (14:24 +0000)
helm/software/components/tactics/primitiveTactics.ml

index 5310fea7e09a6638bb7b5181053748ac3fba0160..8787b1a73c048e6b523ccf75dc85906509d64746 100644 (file)
@@ -711,7 +711,7 @@ let cases_intros_tac ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_nam
         let rec mkargs = function 
           | 0 -> []
           | 1 -> [Cic.Rel 1]
-          | n -> (Cic.Implicit None)::(mkargs (n-1)) 
+          | n -> (Cic.Rel n)::(mkargs (n-1)) 
         in
         mkargs n_lambdas 
       in