feat: enable reuse across types

src/Lean/Compiler/IR/ResetReuse.lean

@@ -27,11 +27,11 @@ namespace Lean.IR.ResetReuse
 -/
 
 private def mayReuse (c₁ c₂ : CtorInfo) : Bool :=
-  c₁.size == c₂.size && c₁.usize == c₂.usize && c₁.ssize == c₂.ssize &&
+  c₁.size == c₂.size && c₁.usize == c₂.usize && c₁.ssize == c₂.ssize
   /- The following condition is a heuristic.
      We don't want to reuse cells from different types even when they are compatible
      because it produces counterintuitive behavior. -/
-  c₁.name.getPrefix == c₂.name.getPrefix
+  -- c₁.name.getPrefix == c₂.name.getPrefix
 
 private partial def S (w : VarId) (c : CtorInfo) : FnBody → FnBody
   | FnBody.vdecl x t v@(Expr.ctor c' ys) b   =>
@@ -76,6 +76,7 @@ private def argsContainsVar (ys : Array Arg) (x : VarId) : Bool :=
 private def isCtorUsing (b : FnBody) (x : VarId) : Bool :=
   match b with
   | (FnBody.vdecl _ _ (Expr.ctor _ ys) _) => argsContainsVar ys x
+  | (FnBody.vdecl _ _ (Expr.reset _ y) _) => x == y
   | _ => false
 
 /-- Given `Dmain b`, the resulting pair `(new_b, flag)` contains the new body `new_b`,