Add injectivity lemma for abs

2025-02-14 21:55:44 -05:00 · 2025-02-14 21:55:44 -05:00 · 9bd554b513
commit 9bd554b513
parent 300530a93f
2 changed files with 34 additions and 0 deletions
--- a/theories/algorithmic.v
+++ b/theories/algorithmic.v
@ -681,6 +681,7 @@ Proof.
      suff [v0 [hv00 hv01]] : exists v0, rtc ERed.R va' v0 /\ rtc ERed.R vb' v0.
      repeat split =>//=. sfirstorder.
      simpl in *; by lia.
+
      admit.
    + case : b => //=; try qauto depth:1 use:T_AbsPair_Imp, T_PairBind_Imp, T_PairUniv_Imp.
      move => a1 b1 a0 b0 h _ _ Γ A hu0 hu1.