X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskProofToLatex.v;h=61b358f0c738252ff3047ac66923d965fc6ca7ae;hp=d35a87008114aad93dd5cb34c550d515d78904aa;hb=93ac0d63048027161f816c451a7954fb8a6470c0;hpb=6ae1b9b08da7c1d1f0de42afa1ccbf42acda3e62

diff --git a/src/HaskProofToLatex.v b/src/HaskProofToLatex.v
index d35a870..61b358f 100644
--- a/src/HaskProofToLatex.v
+++ b/src/HaskProofToLatex.v
@@ -161,6 +161,7 @@ Fixpoint nd_uruleToRawLatexMath {T}{h}{c}(r:@Arrange T h c) : string :=
   match r with
     | RLeft   _ _ _ r => nd_uruleToRawLatexMath r
     | RRight  _ _ _ r => nd_uruleToRawLatexMath r
+    | RId     _     => "Id"
     | RCanL   _     => "CanL"
     | RCanR   _     => "CanR"
     | RuCanL  _     => "uCanL"