<div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">heh heh. I've got to record this for posterity. I've never known an example before.<div><br></div><div>Some code that compiles in Hugs and works fine; but GHC (8.6.4) can't typecheck so rejects.</div><div><br></div><div>It's an example in the 2011 'System F with Type Equality Coercions', section 2.3 discussing FunDeps; and used to justify the extra power of type inference in Type Families as opposed to FunDeps. Full details discussed here: <a href="https://gitlab.haskell.org/ghc/ghc/issues/16430#note_189393">https://gitlab.haskell.org/ghc/ghc/issues/16430#note_189393</a></div><div><br></div><div><pre class="gmail-code gmail-highlight" lang="plaintext"><span id="gmail-LC1" class="gmail-line" lang="plaintext">    class F a b | a -> b</span>
<span id="gmail-LC2" class="gmail-line" lang="plaintext">    instance F Int Bool</span>
<span id="gmail-LC3" class="gmail-line" lang="plaintext"></span>
<span id="gmail-LC4" class="gmail-line" lang="plaintext">    class D a where { op :: F a b => a -> b }</span>
<span id="gmail-LC5" class="gmail-line" lang="plaintext">    instance D Int where { op _ = True }</span>
</pre><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal">True that doesn't compile as given. Hugs says: 'Inferred type is not general enough'. </span></font></pre><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal">GHC says '</span></font>Couldn't match expected type `b' with actual type `Bool''/ '`b' is a rigid type variable'. (So essentially the same failure of typechecking.)</pre><pre class="gmail-code gmail-highlight" lang="plaintext"><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal">With a little help for the type inference, this compiles in Hugs. </span></font></pre><pre class="gmail-code gmail-highlight" lang="plaintext"><pre class="gmail-code gmail-highlight" lang="plaintext"><span id="gmail-LC1" class="gmail-line" lang="plaintext">    class C a b | a -> b</span>
<span id="gmail-LC2" class="gmail-line" lang="plaintext">    instance C Int Bool</span>
<span id="gmail-LC3" class="gmail-line" lang="plaintext"></span>
<span id="gmail-LC4" class="gmail-line" lang="plaintext">    f :: (C Int b, TypeCast b Bool) => b -> Bool</span>
<span id="gmail-LC5" class="gmail-line" lang="plaintext">    f x  = typeCast x  </span>
</pre>With `TypeCast` defined as for HList.</pre><pre class="gmail-code gmail-highlight" lang="plaintext">But GHC still rejects it; and rejects a version with a `(~)` constraint instead of the `TypeCast`.</pre><pre class="gmail-code gmail-highlight" lang="plaintext"><br></pre><pre class="gmail-code gmail-highlight" lang="plaintext">AntC

</pre><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal"><br></span></font></pre><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal"><br></span></font></pre><pre class="gmail-code gmail-highlight" lang="plaintext"><font face="Arial, Helvetica, sans-serif"><span style="white-space:normal"><br></span></font></pre>

</pre><pre class="gmail-code gmail-highlight" lang="plaintext"></pre></div></div></div></div></div>