Skip to content
Snippets Groups Projects
Commit e6f6758c authored by Ralf Jung's avatar Ralf Jung
Browse files

tweak proof to also work after a Coq bugfix

parent f455b5d4
No related branches found
No related tags found
No related merge requests found
......@@ -74,7 +74,7 @@ Section ufrac_auth.
Proof.
rewrite auth_both_validN=> -[Hincl Hvalid].
move: Hincl=> /Some_includedN=> -[[_ ? //]|[[[p' ?] ?] [/=]]].
move=> /discrete_iff /leibniz_equiv_iff; rewrite ufrac_op'=> [/Qp_eq/=].
rewrite -discrete_iff leibniz_equiv_iff. rewrite ufrac_op'=> [/Qp_eq/=].
rewrite -{1}(Qcplus_0_r p)=> /(inj (Qcplus p))=> ?; by subst.
Qed.
Lemma ufrac_auth_agree p a b : (U{p} a U{p} b) a b.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment