X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fpure.ml;h=51d1feb73af42629ad52859a0c580558eefd18fc;hb=7d5ab4339cbbe0c694e6f7376bd92b9a19f5b98d;hp=95dae1513d166833d6ba2fd69868b86e7c1a2ee7;hpb=28250e81c87d7247f0786ca5b62e9bbdc241daab;p=fireball-separation.git

diff --git a/ocaml/pure.ml b/ocaml/pure.ml
index 95dae15..51d1feb 100644
--- a/ocaml/pure.ml
+++ b/ocaml/pure.ml
@@ -118,7 +118,7 @@ let mk_match t bs =
  let bs = List.sort (fun (n1,_) (n2,_) -> compare n1 n2) bs in
  let rec aux m t =
   function
-     [] -> dummy
+     [] -> A (L dummy, t)
    | (n,p)::tl as l ->
       if n = m then
        A (A (t, L (lift (m+1) p)), L (aux (m+1) (V 0) tl))