Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/CCL/coinduction.ML
changeset 3837 d7f033c74b38
parent 2035 e329b36d9136
child 17456 bcf7544875b2 
--- a/src/CCL/coinduction.ML	Fri Oct 10 16:29:41 1997 +0200
+++ b/src/CCL/coinduction.ML	Fri Oct 10 17:10:12 1997 +0200
@@ -48,7 +48,7 @@
       ["<true,true> : POgen(R)",
        "<false,false> : POgen(R)",
        "[| <a,a'> : R;  <b,b'> : R |] ==> <<a,b>,<a',b'>> : POgen(R)",
-       "[|!!x. <b(x),b'(x)> : R |] ==><lam x.b(x),lam x.b'(x)> : POgen(R)",
+       "[|!!x. <b(x),b'(x)> : R |] ==><lam x. b(x),lam x. b'(x)> : POgen(R)",
        "<one,one> : POgen(R)",
        "<a,a'> : lfp(%x. POgen(x) Un R Un PO) ==> \
 \                         <inl(a),inl(a')> : POgen(lfp(%x. POgen(x) Un R Un PO))",
@@ -78,7 +78,7 @@
 ["<true,true> : EQgen(R)",
  "<false,false> : EQgen(R)",
  "[| <a,a'> : R;  <b,b'> : R |] ==> <<a,b>,<a',b'>> : EQgen(R)",
- "[|!!x. <b(x),b'(x)> : R |] ==> <lam x.b(x),lam x.b'(x)> : EQgen(R)",
+ "[|!!x. <b(x),b'(x)> : R |] ==> <lam x. b(x),lam x. b'(x)> : EQgen(R)",
  "<one,one> : EQgen(R)",
  "<a,a'> : lfp(%x. EQgen(x) Un R Un EQ) ==> \
 \                   <inl(a),inl(a')> : EQgen(lfp(%x. EQgen(x) Un R Un EQ))",
isabelle