src/HOL/Tools/Quotient/quotient_term.ML
changeset 35788 f1deaca15ca3
parent 35402 115a5a95710a
child 35843 23908b4dbc2f
equal deleted inserted replaced
35787:afdf1c4958b2 35788:f1deaca15ca3
     1 (*  Title:      quotient_term.thy
     1 (*  Title:      HOL/Tools/Quotient/quotient_term.thy
     2     Author:     Cezary Kaliszyk and Christian Urban
     2     Author:     Cezary Kaliszyk and Christian Urban
     3 
     3 
     4     Constructs terms corresponding to goals from
     4 Constructs terms corresponding to goals from lifting theorems to
     5     lifting theorems to quotient types.
     5 quotient types.
     6 *)
     6 *)
     7 
     7 
     8 signature QUOTIENT_TERM =
     8 signature QUOTIENT_TERM =
     9 sig
     9 sig
    10   exception LIFT_MATCH of string
    10   exception LIFT_MATCH of string
   777       | Const(s, ty) => Const(s, subst_tys thy ty_substs ty))
   777       | Const(s, ty) => Const(s, subst_tys thy ty_substs ty))
   778 in
   778 in
   779   lift_aux t
   779   lift_aux t
   780 end
   780 end
   781 
   781 
   782 
       
   783 end; (* structure *)
   782 end; (* structure *)
   784 
       
   785 
       
   786