- cicInspect: relevant nodes count updated: letin nodes are not relevant

[helm.git] / helm / software / components / acic_procedural / proceduralTeX.ml

diff --git a/helm/software/components/acic_procedural/proceduralTeX.ml b/helm/software/components/acic_procedural/proceduralTeX.ml
index 279ebecb99982bf1cd48b9b19cce54a6a8bdad47..402ef54fe7d2a03e0ee72c3ec6c74f8557ff7d74 100644 (file)
--- a/helm/software/components/acic_procedural/proceduralTeX.ml
+++ b/helm/software/components/acic_procedural/proceduralTeX.ml
@@ -194,6 +194,8 @@ let rec xl frm = function
    | T.Statement _ :: l
    | T.Qed _ :: l                                          ->
       xl frm l
+   | T.Reflexivity _ :: l                                  ->
+      F.fprintf frm "\\Reflexivity"; xl frm l   
    | T.Exact (t, _) :: l                                   ->
       F.fprintf frm "\\Exact{%a}" xat t; xl frm l   
    | T.Intros (_, [r], _) :: l                             ->