src/HOLCF/Fix.ML

         (rtac beta_cfun 1),
         (contX_tacR 1),
         (rtac refl 1)
         ]);
 
+(* ------------------------------------------------------------------------ 
+
+given the definition
+
+smap_def
+  "smap = fix[LAM h f s. stream_when[LAM x l.scons[f[x]][h[f][l]]][s]]"
+
+use fix_prover for 
+
+val smap_def2 = fix_prover Stream2.thy smap_def 
+        "smap = (LAM f s. stream_when[LAM x l.scons[f[x]][smap[f][l]]][s])";
+
+   ------------------------------------------------------------------------ *)
 
 (* ------------------------------------------------------------------------ *)
 (* better access to definitions                                             *)
 (* ------------------------------------------------------------------------ *)
 

 	(res_inst_tac [("s","False"),("t","Suc(ia) < Suc(i)")] ssubst 1),
 	(asm_simp_tac nat_ss  1),
 	(rtac iffI 1),
 	(etac FalseE 2),
 	(rtac notE 1),
-	(etac less_not_sym 1),	
+	(etac (less_not_sym RS mp) 1),	
 	(atac 1),
 	(asm_simp_tac Cfun_ss  1),
 	(etac (is_chainE RS spec) 1),
 	(hyp_subst_tac 1),
 	(asm_simp_tac nat_ss 1),

 		ssubst 1),
 	(res_inst_tac [("s","False"),("t","n < Suc(i)")] ssubst 1),
 	(rtac iffI 1),
 	(etac FalseE 2),
 	(rtac notE 1),
-	(etac less_not_sym 1),	
+	(etac (less_not_sym RS mp) 1),	
 	(atac 1),
 	(asm_simp_tac nat_ss 1),
 	(dtac spec 1),
 	(rtac mp 1),
 	(atac 1),