Question

我正在尝试做以下工作：

    Definition gen `{A:Type}
           {i o: nat}
           (f: nat -> (option nat))
           {ibound: forall (n n':nat), f n = Some n' -> n' < i}
           (x: svector A i) (t:nat) (ti: t < o): option A
  := match (f t) with
     | None => None
     | Some t' => Vnth x (ibound t t' _)
     end.

代替最后＆＃34; _＆＃34;我需要一个证据表明＆＃34; f t＆＃34;等于＆＃34;有些t＆＃39;＆＃34;。我无法弄清楚如何从比赛中获得它。 Vnth定义为：

Vnth
     : ∀ (A : Type) (n : nat), vector A n → ∀ i : nat, i < n → A

Answer 1

编写此函数需要一个所谓的护航模式的实例（参见here）。我相信以下内容应该可行，但我无法测试，因为我没有其余的定义。

Definition gen `{A:Type}
           {i o: nat}
           (f: nat -> (option nat))
           {ibound: forall (n n':nat), f n = Some n' -> n' < i}
           (x: svector A i) (t:nat) (ti: t < o): option A
  := match f t as x return f t = x -> option A with
     | None => fun _ => None
     | Some t' => fun p => Vnth x (ibound t t' p)
     end (eq_refl (f t)).

从匹配中提取平等的证据

1 个答案: