refactor(library/data/prod/wf): remove duplication, and import wf's for sigma and prod

This commit is contained in:
Leonardo de Moura 2014-11-16 21:18:14 -08:00
parent 28c63e685b
commit 3cd3da5a84
3 changed files with 2 additions and 9 deletions

View file

@ -1,4 +1,4 @@
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
-- Released under Apache 2.0 license as described in the file LICENSE.
-- Author: Leonardo de Moura, Jeremy Avigad
import data.prod.decl data.prod.thms
import data.prod.decl data.prod.thms data.prod.wf

View file

@ -50,13 +50,6 @@ namespace prod
definition lex.wf (Ha : well_founded Ra) (Hb : well_founded Rb) : well_founded (lex Ra Rb) :=
well_founded.intro (λp, destruct p (λa b, lex.accessible (Ha a) (well_founded.apply Hb) b))
end
context
parameters {A B : Type}
parameters {Ra : A → A → Prop} {Rb : B → B → Prop}
infix `≺`:50 := rprod Ra Rb
-- Relational product is a subrelation of the lex
definition rprod.sub_lex : ∀ a b, rprod Ra Rb a b → lex Ra Rb a b :=
λa b H, rprod.rec_on H (λ a₁ b₁ a₂ b₂ H₁ H₂, lex.left Rb a₂ b₂ H₁)

View file

@ -1,4 +1,4 @@
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
-- Released under Apache 2.0 license as described in the file LICENSE.
-- Author: Leonardo de Moura, Jeremy Avigad, Floris van Doorn
import data.sigma.decl data.sigma.thms
import data.sigma.decl data.sigma.thms data.sigma.wf