equal
deleted
inserted
replaced
811 \begin{ttbox} |
811 \begin{ttbox} |
812 fun dependent_tr' (q, r) (A :: Abs (x, T, B) :: ts) = |
812 fun dependent_tr' (q, r) (A :: Abs (x, T, B) :: ts) = |
813 if 0 mem (loose_bnos B) then |
813 if 0 mem (loose_bnos B) then |
814 let val (x', B') = Syntax.variant_abs' (x, dummyT, B) in |
814 let val (x', B') = Syntax.variant_abs' (x, dummyT, B) in |
815 list_comb |
815 list_comb |
816 (Const (q, dummyT) $ Syntax.mark_boundT (x', T) $ A $ B', ts) |
816 (Const (q,dummyT) $ Syntax.mark_boundT (x', T) $ A $ B', ts) |
817 end |
817 end |
818 else list_comb (Const (r, dummyT) $ A $ B, ts) |
818 else list_comb (Const (r, dummyT) $ A $ B, ts) |
819 | dependent_tr' _ _ = raise Match; |
819 | dependent_tr' _ _ = raise Match; |
820 \end{ttbox} |
820 \end{ttbox} |
821 The argument {\tt (q, r)} is supplied to the curried function {\tt |
821 The argument {\tt (q, r)} is supplied to the curried function {\tt |