X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicPp.ml;h=b21274fea109915daca66ea3d1aab10f3501b9d2;hb=08e9d02504942642a917c0d3e4b4795e65172d89;hp=7af5d17a6f6e1e7a950184575784601ca0a700c6;hpb=0bfad3f438ba29135f2c18d1bf3cb0c8f462a205;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicPp.ml b/helm/software/components/ng_kernel/nCicPp.ml
index 7af5d17a6..b21274fea 100644
--- a/helm/software/components/ng_kernel/nCicPp.ml
+++ b/helm/software/components/ng_kernel/nCicPp.ml
@@ -42,7 +42,8 @@ let ppobj = function
         (List.map (fun (_,name,n,ty,bo) ->
           name ^ " on " ^ string_of_int n ^ " : " ^ ppterm ty ^ " :=\n"^
           ppterm bo) fl)
-  | _ -> "todo"
+  | (u,_,_,_,NCic.Inductive (b, _,tl, _)) -> "inductive"
+  | (u,_,_,_,NCic.Constant (_,_,_, _, _)) -> "constant"
 ;;