From 1f705c9010a7a84d04ff393ac43d5af8e308dd81 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 21 Feb 2017 20:42:52 -0500 Subject: Use [rew_] instead of [eq_rect_] prefix As per Hugo's request. --- theories/Init/Logic.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories/Init') diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 12ec9dd77..d6076f86d 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -527,13 +527,13 @@ destruct e, e'. reflexivity. Defined. -Lemma eq_trans_eq_rect_distr : forall A (P:A -> Type) (x y z:A) (e:x=y) (e':y=z) (k:P x), +Lemma eq_trans_rew_distr : forall A (P:A -> Type) (x y z:A) (e:x=y) (e':y=z) (k:P x), rew (eq_trans e e') in k = rew e' in rew e in k. Proof. destruct e, e'; reflexivity. Defined. -Lemma eq_rect_const : forall A P (x y:A) (e:x=y) (k:P), +Lemma rew_const : forall A P (x y:A) (e:x=y) (k:P), rew [fun _ => P] e in k = k. Proof. destruct e; reflexivity. -- cgit v1.2.3