src/HOL/Nitpick_Examples/Manual_Nits.thy
changeset 67414 c46b3f9f79ea
parent 67399 eab6ce8368fa
child 68249 949d93804740
--- a/src/HOL/Nitpick_Examples/Manual_Nits.thy	Sat Jan 13 11:22:46 2018 +0100
+++ b/src/HOL/Nitpick_Examples/Manual_Nits.thy	Sat Jan 13 11:42:30 2018 +0100
@@ -442,7 +442,7 @@
 primrec insort\<^sub>1 where
 "insort\<^sub>1 \<Lambda> x = N x 1 \<Lambda> \<Lambda>" |
 "insort\<^sub>1 (N y k t u) x =
- (* (split \<circ> skew) *) (N y k (if x < y then insort\<^sub>1 t x else t)
+ \<^cancel>\<open>(split \<circ> skew)\<close> (N y k (if x < y then insort\<^sub>1 t x else t)
                              (if x > y then insort\<^sub>1 u x else u))"
 
 theorem wf_insort\<^sub>1: "wf t \<Longrightarrow> wf (insort\<^sub>1 t x)"