src/Tools/WWW_Find/html_templates.ML
changeset 46719 61cd0ad6cd42
parent 43073 a4c985fe015d
--- a/src/Tools/WWW_Find/html_templates.ML	Mon Feb 27 20:33:18 2012 +0100
+++ b/src/Tools/WWW_Find/html_templates.ML	Mon Feb 27 20:42:09 2012 +0100
@@ -93,14 +93,14 @@
 
 fun show_criterion (b, c) =
   let
-    fun prfx s = let
+    fun prfx s =
+      let
         val (c, v) = if b then ("criterion", s) else ("ncriterion", "-" ^ s);
       in span (class c, v) end;
   in
     (case c of
       Find_Theorems.Name name => prfx ("name: " ^ quote name)
     | Find_Theorems.Intro => prfx "intro"
-    | Find_Theorems.IntroIff => prfx "introiff"
     | Find_Theorems.Elim => prfx "elim"
     | Find_Theorems.Dest => prfx "dest"
     | Find_Theorems.Solves => prfx "solves"
@@ -133,7 +133,7 @@
       [ tr [ th' noid (found @ [text (displayed ^ ":")]) ] ]
   end
 
-(*FIXME!?!*)
+(* FIXME!?! *)
 fun is_sorry thm =
   Thm.proof_of thm
   |> Proofterm.approximate_proof_body