Skip to content

GitLab

Commit 70afd76e authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files
Options

Turn some "case _ :" occurences into "case:'.

parent 4345aec5
Pipeline #1315 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    algebra/gmap.v
    View file @ 70afd76e
    ......@@ -314,12 +314,12 @@ Proof.
    intros ?? Hx HQ. apply cmra_total_updateP=> n gf Hg.
    destruct (Hx n (gf !! i)) as (y&?&Hy).
    { move:(Hg i). rewrite !left_id.
    case _: (gf !! i)=>[x|]; rewrite /= ?left_id //.
    case: (gf !! i)=>[x|]; rewrite /= ?left_id //.
    intros; by apply cmra_valid_validN. }
    exists {[ i := y ]}; split; first by auto.
    intros i'; destruct (decide (i' = i)) as [->|].
    - rewrite lookup_op lookup_singleton.
    move:Hy; case _: (gf !! i)=>[x|]; rewrite /= ?right_id //.
    move:Hy; case: (gf !! i)=>[x|]; rewrite /= ?right_id //.
    - move:(Hg i'). by rewrite !lookup_op lookup_singleton_ne // !left_id.
    Qed.
    Lemma singleton_updateP_unit' (P: A → Prop) u i :
    ......
    Markdown is supported
    0% or .
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment