]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fixed: aliases for numbers were no longer handled correctly (since 0 was
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 22 Sep 2006 16:28:39 +0000 (16:28 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 22 Sep 2006 16:28:39 +0000 (16:28 +0000)
a wildcard only for symbols).

components/cic_disambiguation/disambiguate.ml

index fbe191416a0185024ad68575688fb0bd3b91d511..fb4c338a447ee040ac8c4ecb63dfad86c149b31d 100644 (file)
@@ -717,6 +717,10 @@ let domain_diff dom1 dom2 =
           (match elt with
               Symbol (symb',_) when symb = symb' -> true
             | _ -> false)
+       | Num i ->
+          (match elt with
+              Num _ -> true
+            | _ -> false)
        | item -> elt = item
      ) dom2
   in