X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Frecomm%2FrecommGcbGroundLib.ml;h=1402aff57a81ba891326d5e5059a549e15e13737;hp=94db88ed7f01e9732317d6eed6a4a43f863bca60;hb=ca318d6d92098c3a65c9f0841174ca110c82e064;hpb=ae626612bff9c3746dd7647bbada791c737e348c

diff --git a/matita/matita/contribs/lambdadelta/bin/recomm/recommGcbGroundLib.ml b/matita/matita/contribs/lambdadelta/bin/recomm/recommGcbGroundLib.ml
index 94db88ed7..1402aff57 100644
--- a/matita/matita/contribs/lambdadelta/bin/recomm/recommGcbGroundLib.ml
+++ b/matita/matita/contribs/lambdadelta/bin/recomm/recommGcbGroundLib.ml
@@ -11,6 +11,7 @@ let step k st outs ins =
   | "lsub" :: tl -> k T.OK ("lsub" :: outs) tl
   | "land" :: tl -> k T.OK ("land" :: outs) tl
   | "eq" :: tl -> k T.OK ("eq" :: outs) tl
+  | "ex4" :: tl -> k T.OK ("ex4" :: outs) tl
   | _ -> k T.OO outs ins
 
 let main =