Constructor saturation fix

Constructors need to be saturated for compiling, but we need to be
careful if any existing arguments contain de Bruijn indices or we'll
break them when saturating. Fixes idris-lang#3713

src/Idris/DataOpts.hs

@@ -97,7 +97,7 @@ applyDataOptRT :: Name -> Int -> Int -> Bool -> [Term] -> Term
 applyDataOptRT n tag arity uniq args
     | length args == arity = doOpts n args
     | otherwise = let extra = satArgs (arity - length args)
-                      tm = doOpts n (args ++ map (\n -> P Bound n Erased) extra)
+                      tm = doOpts n (map (weakenTm (length extra)) args ++ map (\n -> P Bound n Erased) extra)
                   in bind extra tm
   where
     satArgs n = map (\i -> sMN i "sat") [1..n]