src/ZF/Resid/Conversion.thy
author clasohm
Sat Dec 09 13:36:11 1995 +0100 (1995-12-09 ago)
changeset 1401 0c439768f45c
parent 1048 5ba0314f8214
child 1478 2b8c2a7547ab
permissions -rw-r--r--
removed quotes from consts and syntax sections
lcp@1048
     1
(*  Title: 	Conversion.thy
lcp@1048
     2
    ID:         $Id$
lcp@1048
     3
    Author: 	Ole Rasmussen
lcp@1048
     4
    Copyright   1995  University of Cambridge
lcp@1048
     5
    Logic Image: ZF
lcp@1048
     6
lcp@1048
     7
*)
lcp@1048
     8
lcp@1048
     9
Conversion = Confluence+
lcp@1048
    10
lcp@1048
    11
consts
clasohm@1401
    12
  Sconv1	:: i
clasohm@1401
    13
  "<-1->"	:: [i,i]=>o (infixl 50)
clasohm@1401
    14
  Sconv		:: i
clasohm@1401
    15
  "<--->"	:: [i,i]=>o (infixl 50)
lcp@1048
    16
lcp@1048
    17
translations
lcp@1048
    18
  "a<-1->b"    == "<a,b>:Sconv1"
lcp@1048
    19
  "a<--->b"    == "<a,b>:Sconv"
lcp@1048
    20
  
lcp@1048
    21
inductive
lcp@1048
    22
  domains       "Sconv1" <= "lambda*lambda"
lcp@1048
    23
  intrs
lcp@1048
    24
    red1	"m -1-> n ==> m<-1->n"
lcp@1048
    25
    expl  	"n -1-> m ==> m<-1->n"
lcp@1048
    26
  type_intrs	"[red1D1,red1D2]@lambda.intrs@bool_typechecks"
lcp@1048
    27
lcp@1048
    28
inductive
lcp@1048
    29
  domains       "Sconv" <= "lambda*lambda"
lcp@1048
    30
  intrs
lcp@1048
    31
    one_step	"m<-1->n  ==> m<--->n"
lcp@1048
    32
    refl  	"m:lambda ==> m<--->m"
lcp@1048
    33
    trans	"[|m<--->n; n<--->p|] ==> m<--->p"
lcp@1048
    34
  type_intrs	"[Sconv1.dom_subset RS subsetD]@lambda.intrs@bool_typechecks"
lcp@1048
    35
end
lcp@1048
    36