Update the environment so discriminate works with eq in Type

The find_scheme function will modify the global environment to add an
induction scheme generated on the fly.  We will fail if we look for the
generated induction scheme in the local environment, which hasn't been
updated.