CicSubstitution.lift_from liftfrom liftno src,
add_right_pi dependent strip liftno (liftfrom + 1) rightno indty tgt)
| Cic.Prod (_, _, tgt) ->
add_right_pi dependent (strip - 1) liftno liftfrom rightno indty tgt
| t ->
if dependent then
CicSubstitution.lift_from liftfrom liftno src,
add_right_pi dependent strip liftno (liftfrom + 1) rightno indty tgt)
| Cic.Prod (_, _, tgt) ->
add_right_pi dependent (strip - 1) liftno liftfrom rightno indty tgt
| t ->
if dependent then