# HG changeset patch
# User clasohm
# Date 824992085 -3600
# Node ID d2f865740d8eea26c49cbc3af7f9efa1d1a3514b
# Parent  96286c4e32de54708777bc5fbf4261236a0e09af
added cabs and crep_thm

diff -r 96286c4e32de -r d2f865740d8e src/Pure/thm.ML
--- a/src/Pure/thm.ML	Thu Feb 22 12:20:34 1996 +0100
+++ b/src/Pure/thm.ML	Thu Feb 22 13:28:05 1996 +0100
@@ -31,6 +31,7 @@
   val dest_comb         : cterm -> cterm * cterm
   val dest_abs          : cterm -> cterm * cterm
   val capply            : cterm -> cterm -> cterm
+  val cabs              : cterm -> cterm -> cterm
   val read_def_cterm    :
     Sign.sg * (indexname -> typ option) * (indexname -> sort option) ->
     string list -> bool -> string * typ -> cterm * (indexname * typ) list
@@ -40,6 +41,8 @@
   exception THM of string * int * thm list
   val rep_thm           : thm -> {sign: Sign.sg, maxidx: int,
     shyps: sort list, hyps: term list, prop: term}
+  val crep_thm          : thm -> {sign: Sign.sg, maxidx: int,
+    shyps: sort list, hyps: cterm list, prop: cterm}
   val stamps_of_thm     : thm -> string ref list
   val tpairs_of         : thm -> (term * term) list
   val prems_of          : thm -> term list
@@ -227,6 +230,11 @@
       else raise CTERM "capply: types don't agree"
   | capply _ _ = raise CTERM "capply: first arg is not a function"
 
+fun cabs (Cterm {t=Free(a,ty), sign=sign1, T=T1, maxidx=maxidx1})
+         (Cterm {t=t2, sign=sign2, T=T2, maxidx=maxidx2}) =
+      Cterm {t=absfree(a,ty,t2), sign=Sign.merge(sign1,sign2),
+             T = ty --> T2, maxidx=max[maxidx1, maxidx2]}
+  | cabs _ _ = raise CTERM "cabs: first arg is not a free variable";
 
 (** read cterms **)   (*exception ERROR*)
 
@@ -277,6 +285,12 @@
 
 fun rep_thm (Thm args) = args;
 
+fun crep_thm (Thm {sign, maxidx, shyps, hyps, prop}) =
+  let fun cterm_of t = Cterm{sign=sign, t=t, T=fastype_of t, maxidx=maxidx};
+  in {sign=sign, maxidx=maxidx, shyps=shyps,
+      hyps=map cterm_of hyps, prop=cterm_of prop}
+  end;
+
 (*errors involving theorems*)
 exception THM of string * int * thm list;