From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 8 Nov 2007 14:06:13 +0000 (+0000)
Subject: Arguments of constructors in a case pattern are now ppid-ed.
X-Git-Tag: make_still_working~5885
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=db04e50168be1d78e9074543990c6c7d0b40298b;p=helm.git

Arguments of constructors in a case pattern are now ppid-ed.
---

diff --git a/helm/software/components/cic_exportation/cicExportation.ml b/helm/software/components/cic_exportation/cicExportation.ml
index c975ff11e..e671effca 100644
--- a/helm/software/components/cic_exportation/cicExportation.ml
+++ b/helm/software/components/cic_exportation/cicExportation.ml
@@ -294,6 +294,10 @@ let rec pp ~in_type t context =
                      let rec aux argsno context =
                       function
                          Cic.Lambda (name,ty,bo) when argsno > 0 ->
+                          let name =
+                           match name with
+                              Cic.Anonymous -> Cic.Anonymous
+                            | Cic.Name n -> Cic.Name (ppid n) in
                           let args,res =
                            aux (argsno - 1) (Some (name,Cic.Decl ty)::context)
                             bo