X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskProofToLatex.v;h=56cd74788742afab83e8e38ec699527d18195558;hp=25e2523bfefff413a6b4680d4d08336789adc0d7;hb=553474663acbc6a2ee360497e9d943d3c0b3ccb5;hpb=6b017fc7346850c589273befe5faef9ee57bd53d

diff --git a/src/HaskProofToLatex.v b/src/HaskProofToLatex.v
index 25e2523..56cd747 100644
--- a/src/HaskProofToLatex.v
+++ b/src/HaskProofToLatex.v
@@ -171,9 +171,10 @@ Section ToLatex.
   Fixpoint nd_rule2latex {h}{c}(r:Rule h c) : string :=
     match r with
       | RURule        _ _ _ _ r         => nd_urule2latex r
-      | RNote         _ _ _             => "Note"
+      | RNote         _ _ _ _ _ _       => "Note"
       | RLit          _ _ _ _           => "Lit"
       | RVar          _ _ _ _           => "Var"
+      | RGlobal       _ _ _ _ _         => "Global"
       | RLam          _ _ _ _ _ _       => "Abs"
       | RCast         _ _ _ _ _ _ _     => "Cast"
       | RAbsT         _ _ _ _ _ _       => "AbsT"