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

prove rtc_subrel

parent 09e255a9
No related branches found
No related tags found
No related merge requests found
Pipeline #
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
theories/relations.v
+ 2
− 0
View file @ db2da9af
...@@ -188,6 +188,8 @@ Section subrel. ...@@ -188,6 +188,8 @@ Section subrel.
Proof. intros ? [y ?]; eauto. Qed. Proof. intros ? [y ?]; eauto. Qed.
Lemma nf_subrel x : subrel → nf R2 x → nf R1 x. Lemma nf_subrel x : subrel → nf R2 x → nf R1 x.
Proof. intros ? H1 H2; destruct H1; by apply red_subrel. Qed. Proof. intros ? H1 H2; destruct H1; by apply red_subrel. Qed.
Lemma rtc_subrel x y : subrel → rtc R1 x y → rtc R2 x y.
Proof. induction 2; [by apply rtc_refl|]. eapply rtc_l; eauto. Qed.
End subrel. End subrel.
(** * Theorems on well founded relations *) (** * Theorems on well founded relations *)
......
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