IDRIS-动态定义接口

Question

有没有一种方法可以“异常地”构建接口的实现？ 我有一些看起来像

的代码

record MySemigroup where
  constructor MkMySemigroup
  set : Type
  op  : set -> set -> set

mySemigroupIsSemigroup : (s : MySemigroup) -> Semigroup (set s)
mySemigroupIsSemigroup s = ?hole

并且我想使用Semigroup在set s上定义op s的实例。