lication of:</p>
<pre><code class="language-scala">@ f
res93: Term =
  (s : semigroup(A)) ‚Ü¶
    hes_mul.mk(A)(
      rec(semigroup(A))((A ‚Üí (A ‚Üí A)))(
        (m : (A ‚Üí (A ‚Üí A)))
          ‚Ü¶ (_ : ‚àè(x : A){ ‚àè(y : A){ ‚àè(z : A){ eq(A)(m(m(y)(z))(z))(m(y)(m(z)(z))) } } }) ‚Ü¶
            m
            )(s)
      )
</code></pre>
<p>on the argument (partly messed up during cleaning)</p>
<pre><code class="language-scala">@ x
res94: Term =
  semigroup.mk(A)(