X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.ml;h=d7635fe8860ef409efa5534aa255d3ba263562dc;hb=62f476a05884d451bfb90d845ea2b1c0a1c77f96;hp=57a2a4f178d5056c6131778a9458938c1b25afd1;hpb=534a4d25a24227dac52c20d8430d12841b856350;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index 57a2a4f17..d7635fe88 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -81,3 +81,9 @@ module NCicHash =
    end)
 ;;
 
+let mk_appl he args = 
+  if args = [] then he else
+  match he with
+  | NCic.Appl l -> NCic.Appl (l@args)
+  | _ -> NCic.Appl (he::args)
+;;