idRuleVars ::Id -> VarSet  -- Does *not* include CoreUnfolding vars
idRuleVars id = fvVarSet $ idRuleFVs id
idRuleVars ::Id -> VarSet
idRuleVars id = fvVarSet $ idRuleFVs id
idRuleVars id = fvVarSet $ idRuleFVs id