Coq上实数的平凡引理
我想证明下面的引理Coq上实数的平凡引理,coq,Coq,我想证明下面的引理 Require Import Reals.Reals. Open Scope R_scope. Lemma trivial_lemma (r1 r2:R) : r1 - (r1 - r2) = r2. Proof. rewrite <- Ropp_minus_distr. rewrite Ropp_plus_distr. rewrite Ropp_involutive. rewrite Ropp_minus_distr'. Abort. 需要导入Reals.Real
Require Import Reals.Reals.
Open Scope R_scope.
Lemma trivial_lemma (r1 r2:R) : r1 - (r1 - r2) = r2.
Proof.
rewrite <- Ropp_minus_distr.
rewrite Ropp_plus_distr.
rewrite Ropp_involutive.
rewrite Ropp_minus_distr'.
Abort.
需要导入Reals.Reals。
打开范围R\u范围。
平凡引理（r1r2:R）：r1-（r1-r2）=r2。
证明。
重写首先你应该知道自动战术ring
自动解决此类目标。从长远来看，如果你想提高工作效率，你应该经常使用这种策略
其次，（通过搜索）该库似乎不包含很多关于减法的引理。在这种情况下，您可能需要展开此操作符，以获得具有更原始的加法和相反操作的目标。下面是一系列重写，可以帮助您完成工作
unfold Rminus.
rewrite Ropp_plus_distr.
rewrite Ropp_involutive.
rewrite <- Rplus_assoc.
rewrite Rplus_opp_r.
rewrite Rplus_0_l.
easy.
。
重写Ropp\u plus\u发行版。
重写Ropp_对合。
重写请注意，一次重写可以重写多个内容：。现在重写Ropp_plus_distr，Ropp_对合，