Fix `fromInteger` constructing invalid `Natural`
Fix `fromInteger` constructing invalid `Natural`

This fixes a case where `isValidNatural . fromInteger` would be `False`.

Re #9818

ghc-android/ghc,ml9951/ghc,vTurbine/ghc,ml9951/ghc,shlevy/ghc,sgillespie/ghc,nathyong/microghc-ghc,elieux/ghc,anton-dessiatov/ghc,TomMD/ghc,oldmanmike/ghc,mettekou/ghc,forked-upstream-packages-for-ghcjs/ghc,acowley/ghc,mcschroeder/ghc,nkaretnikov/ghc,AlexanderPankiv/ghc,da-x/ghc,wxwxwwxxx/ghc,acowley/ghc,gridaphobe/ghc,nathyong/microghc-ghc,gridaphobe/ghc,shlevy/ghc,wxwxwwxxx/ghc,mfine/ghc,gcampax/ghc,urbanslug/ghc,urbanslug/ghc,shlevy/ghc,elieux/ghc,siddhanathan/ghc,tjakway/ghcjvm,acowley/ghc,vikraman/ghc,gcampax/ghc,nushio3/ghc,GaloisInc/halvm-ghc,urbanslug/ghc,GaloisInc/halvm-ghc,gcampax/ghc,nathyong/microghc-ghc,sdiehl/ghc,acowley/ghc,nkaretnikov/ghc,forked-upstream-packages-for-ghcjs/ghc,mettekou/ghc,mcschroeder/ghc,bitemyapp/ghc,AlexanderPankiv/ghc,mcschroeder/ghc,forked-upstream-packages-for-ghcjs/ghc,sdiehl/ghc,bitemyapp/ghc,tjakway/ghcjvm,GaloisInc/halvm-ghc,bitemyapp/ghc,elieux/ghc,wxwxwwxxx/ghc,mfine/ghc,green-haskell/ghc,fmthoma/ghc,vTurbine/ghc,wxwxwwxxx/ghc,snoyberg/ghc,green-haskell/ghc,vTurbine/ghc,mfine/ghc,olsner/ghc,nushio3/ghc,nushio3/ghc,snoyberg/ghc,oldmanmike/ghc,nkaretnikov/ghc,gridaphobe/ghc,green-haskell/ghc,gridaphobe/ghc,sdiehl/ghc,vikraman/ghc,mettekou/ghc,acowley/ghc,ml9951/ghc,vikraman/ghc,ghc-android/ghc,ghc-android/ghc,AlexanderPankiv/ghc,da-x/ghc,nushio3/ghc,christiaanb/ghc,ghc-android/ghc,AlexanderPankiv/ghc,gridaphobe/ghc,wxwxwwxxx/ghc,wxwxwwxxx/ghc,nkaretnikov/ghc,TomMD/ghc,green-haskell/ghc,elieux/ghc,acowley/ghc,christiaanb/ghc,christiaanb/ghc,tjakway/ghcjvm,nkaretnikov/ghc,mfine/ghc,christiaanb/ghc,vikraman/ghc,nathyong/microghc-ghc,mettekou/ghc,da-x/ghc,elieux/ghc,TomMD/ghc,fmthoma/ghc,mcschroeder/ghc,snoyberg/ghc,urbanslug/ghc,shlevy/ghc,siddhanathan/ghc,christiaanb/ghc,sdiehl/ghc,fmthoma/ghc,nathyong/microghc-ghc,olsner/ghc,siddhanathan/ghc,sgillespie/ghc,TomMD/ghc,siddhanathan/ghc,shlevy/ghc,ezyang/ghc,shlevy/ghc,tjakway/ghcjvm,vikraman/ghc,tjakway/ghcjvm,mettekou/ghc,nushio3/ghc,tjakway/ghcjvm,oldmanmike/ghc,anton-dessiatov/ghc,sgillespie/ghc,ezyang/ghc,ghc-android/ghc,vikraman/ghc,forked-upstream-packages-for-ghcjs/ghc,ghc-android/ghc,ezyang/ghc,fmthoma/ghc,ezyang/ghc,AlexanderPankiv/ghc,nkaretnikov/ghc,forked-upstream-packages-for-ghcjs/ghc,oldmanmike/ghc,ml9951/ghc,nathyong/microghc-ghc,forked-upstream-packages-for-ghcjs/ghc,sdiehl/ghc,acowley/ghc,GaloisInc/halvm-ghc,wxwxwwxxx/ghc,mcschroeder/ghc,GaloisInc/halvm-ghc,vTurbine/ghc,sgillespie/ghc,sgillespie/ghc,vikraman/ghc,GaloisInc/halvm-ghc,AlexanderPankiv/ghc,anton-dessiatov/ghc,mcschroeder/ghc,anton-dessiatov/ghc,mfine/ghc,snoyberg/ghc,bitemyapp/ghc,da-x/ghc,nkaretnikov/ghc,da-x/ghc,ezyang/ghc,siddhanathan/ghc,gcampax/ghc,christiaanb/ghc,TomMD/ghc,ezyang/ghc,anton-dessiatov/ghc,elieux/ghc,GaloisInc/halvm-ghc,elieux/ghc,snoyberg/ghc,ml9951/ghc,snoyberg/ghc,gcampax/ghc,ghc-android/ghc,nushio3/ghc,gridaphobe/ghc,siddhanathan/ghc,green-haskell/ghc,ml9951/ghc,TomMD/ghc,mettekou/ghc,oldmanmike/ghc,siddhanathan/ghc,oldmanmike/ghc,gcampax/ghc,fmthoma/ghc,bitemyapp/ghc,olsner/ghc,sgillespie/ghc,snoyberg/ghc,gcampax/ghc,urbanslug/ghc,vTurbine/ghc,olsner/ghc,mfine/ghc,urbanslug/ghc,fmthoma/ghc,tjakway/ghcjvm,anton-dessiatov/ghc,olsner/ghc,sgillespie/ghc,mettekou/ghc,ezyang/ghc,mcschroeder/ghc,oldmanmike/ghc,fmthoma/ghc,ml9951/ghc,da-x/ghc,AlexanderPankiv/ghc,mfine/ghc,urbanslug/ghc,TomMD/ghc,sdiehl/ghc,ml9951/ghc,vTurbine/ghc,sdiehl/ghc,da-x/ghc,shlevy/ghc,gridaphobe/ghc,christiaanb/ghc,nushio3/ghc,vTurbine/ghc,forked-upstream-packages-for-ghcjs/ghc,anton-dessiatov/ghc,nathyong/microghc-ghc,olsner/ghc,olsner/ghc