quantify LC (conflict with const name of HOL);
authorwenzelm
Thu, 18 Jul 2002 12:05:29 +0200
changeset 13388 eff0ede61da1
parent 13387 b7464ca2ebbb
child 13389 0cbda884a7e5
quantify LC (conflict with const name of HOL);
src/HOLCF/IOA/meta_theory/Abstraction.ML
src/HOLCF/IOA/meta_theory/LiveIOA.ML
--- a/src/HOLCF/IOA/meta_theory/Abstraction.ML	Thu Jul 18 10:37:55 2002 +0200
+++ b/src/HOLCF/IOA/meta_theory/Abstraction.ML	Thu Jul 18 12:05:29 2002 +0200
@@ -249,7 +249,7 @@
 qed"AbsRuleA1";
 
 
-Goal "[| inp(C)=inp(A); out(C)=out(A); \
+Goal "!!LC. [| inp(C)=inp(A); out(C)=out(A); \
 \                  inp(Q)=inp(P); out(Q)=out(P); \
 \                  is_live_abstraction h1 (C,LC) (A,LA); \
 \                  live_implements (A,LA) (Q,LQ) ; \
--- a/src/HOLCF/IOA/meta_theory/LiveIOA.ML	Thu Jul 18 10:37:55 2002 +0200
+++ b/src/HOLCF/IOA/meta_theory/LiveIOA.ML	Thu Jul 18 12:05:29 2002 +0200
@@ -9,7 +9,7 @@
 Delsimps [split_paired_Ex];
 
 Goalw [live_implements_def] 
-"[| live_implements (A,LA) (B,LB); live_implements (B,LB) (C,LC) |] \
+"!!LC. [| live_implements (A,LA) (B,LB); live_implements (B,LB) (C,LC) |] \
 \     ==> live_implements (A,LA) (C,LC)"; 
 by Auto_tac;
 qed"live_implements_trans";