equal
deleted
inserted
replaced
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 |
|