
diff -r 277301dc5c4c -r b1ca92ea3a86 Quot/Nominal/Terms.thy
--- a/Quot/Nominal/Terms.thy	Wed Feb 03 14:22:25 2010 +0100
+++ b/Quot/Nominal/Terms.thy	Wed Feb 03 14:36:22 2010 +0100
@@ -822,6 +822,18 @@
 "(alphalts ===> op =) rbv5 rbv5"
 sorry
 
+lemma bv_list_rsp:
+  shows "t \<approx>5 s \<Longrightarrow> True"
+  and "x \<approx>l y \<Longrightarrow> rbv5 x = rbv5 y"
+apply(induct rule: alpha5_alphalts.inducts)
+apply(simp_all)
+done
+
+lemma 
+  shows "(alphalts ===> op =) rbv5 rbv5"
+  by (simp add: bv_list_rsp)
+
+
 instantiation trm5 and lts :: pt
 begin
 




