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

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"