doc-src/Ref/syntax.tex
changeset 3128 d01d4c0c4b44
parent 3108 335efc3f5632
child 3135 233aba197bf2
equal deleted inserted replaced
3127:4cc2fe62f7c3 3128:d01d4c0c4b44
   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