Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [debug.eqn_compiler.elim_match] code:
- λ {l n m : ℕ} (a : bounded_preformula L n l) (a_1 : dvector (fin m) n),
- bounded_preformula.cases_on a
- (λ {a_1 : ℕ} (H_1 : n = a_1),
- eq.rec
- (λ (a_1 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (H_3 : a == ⊥), eq.rec (id_rhs (bounded_preformula L m 0) ⊥) _)
- _
- a)
- H_1)
- (λ {a_n : ℕ} (a_t₁ a_t₂ : bounded_term L a_n) (H_1 : n = a_n),
- eq.rec
- (λ (a_t₁ a_t₂ : bounded_term L n) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (H_3 : a == a_t₁ ≃ a_t₂),
- eq.rec
- (id_rhs (bounded_preformula L m 0)
- (subst_var_bounded_term a_t₁ a_1 ≃ subst_var_bounded_term a_t₁ a_1))
- _)
- _
- a)
- H_1
- a_t₁
- a_t₂)
- (λ {a_n a_l : ℕ} (a_R : L.relations a_l) (H_1 : n = a_n),
- eq.rec
- (λ (H_2 : l = a_l),
- eq.rec
- (λ (a_R : L.relations l) (H_3 : a == bd_rel a_R),
- eq.rec (id_rhs (bounded_preformula L m l) (bd_rel a_R)) _)
- H_2
- a_R)
- H_1)
- (λ {a_n a_l : ℕ} (a_f : bounded_preformula L a_n (a_l + 1)) (a_t : bounded_term L a_n) (H_1 : n = a_n),
- eq.rec
- (λ (a_f : bounded_preformula L n (a_l + 1)) (a_t : bounded_term L n) (H_2 : l = a_l),
- eq.rec
- (λ (a_f : bounded_preformula L n (l + 1)) (H_3 : a == bd_apprel a_f a_t),
- eq.rec
- (id_rhs (bounded_preformula L m l)
- (bd_apprel ([fol.subst_var_bounded_formula._main._meta_aux] a_f a_1)
- (subst_var_bounded_term a_t a_1)))
- _)
- H_2
- a_f)
- H_1
- a_f
- a_t)
- (λ {a_n : ℕ} (a_f₁ a_f₂ : bounded_preformula L a_n 0) (H_1 : n = a_n),
- eq.rec
- (λ (a_f₁ a_f₂ : bounded_preformula L n 0) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (H_3 : a == a_f₁ ⟹ a_f₂),
- eq.rec
- (id_rhs (bounded_preformula L m 0)
- ([fol.subst_var_bounded_formula._main._meta_aux] a_f₁ a_1 ⟹
- [fol.subst_var_bounded_formula._main._meta_aux] a_f₂ a_1))
- _)
- _
- a)
- H_1
- a_f₁
- a_f₂)
- (λ {a_n : ℕ} (a_f : bounded_preformula L (a_n + 1) 0) (H_1 : n = a_n),
- eq.rec
- (λ (a_f : bounded_preformula L (n + 1) 0) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (H_3 : a == ∀' a_f),
- eq.rec
- (id_rhs (bounded_preformula L m 0)
- (∀'[fol.subst_var_bounded_formula._main._meta_aux] a_f (dvector_lift_var a_1)))
- _)
- _
- a)
- H_1
- a_f)
- _
- _
- _
- [debug.eqn_compiler.elim_match] code:
- λ {l n m : ℕ} (a : bounded_preformula L n l) (a_1 : dvector (fin m) n) (_F : bounded_preformula.below L a),
- bounded_preformula.cases_on a
- (λ {a_1 : ℕ} (H_1 : n = a_1),
- eq.rec
- (λ (a_1 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (_F : bounded_preformula.below L a) (H_3 : a == ⊥),
- eq.rec (λ (_F : bounded_preformula.below L ⊥), id_rhs (bounded_preformula L m 0) ⊥) _ _F)
- _
- a
- _F)
- H_1)
- (λ {a_n : ℕ} (a_t₁ a_t₂ : bounded_term L a_n) (H_1 : n = a_n),
- eq.rec
- (λ (a_t₁ a_t₂ : bounded_term L n) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (_F : bounded_preformula.below L a) (H_3 : a == a_t₁ ≃ a_t₂),
- eq.rec
- (λ (_F : bounded_preformula.below L (a_t₁ ≃ a_t₂)),
- id_rhs (bounded_preformula L m 0)
- (subst_var_bounded_term a_t₁ a_1 ≃ subst_var_bounded_term a_t₁ a_1))
- _
- _F)
- _
- a
- _F)
- H_1
- a_t₁
- a_t₂)
- (λ {a_n a_l : ℕ} (a_R : L.relations a_l) (H_1 : n = a_n),
- eq.rec
- (λ (H_2 : l = a_l),
- eq.rec
- (λ (a_R : L.relations l) (H_3 : a == bd_rel a_R),
- eq.rec
- (λ (_F : bounded_preformula.below L (bd_rel a_R)), id_rhs (bounded_preformula L m l) (bd_rel a_R))
- _
- _F)
- H_2
- a_R)
- H_1)
- (λ {a_n a_l : ℕ} (a_f : bounded_preformula L a_n (a_l + 1)) (a_t : bounded_term L a_n) (H_1 : n = a_n),
- eq.rec
- (λ (a_f : bounded_preformula L n (a_l + 1)) (a_t : bounded_term L n) (H_2 : l = a_l),
- eq.rec
- (λ (a_f : bounded_preformula L n (l + 1)) (H_3 : a == bd_apprel a_f a_t),
- eq.rec
- (λ (_F : bounded_preformula.below L (bd_apprel a_f a_t)),
- id_rhs (bounded_preformula L m l) (bd_apprel ((_F.fst).fst a_1) (subst_var_bounded_term a_t a_1)))
- _
- _F)
- H_2
- a_f)
- H_1
- a_f
- a_t)
- (λ {a_n : ℕ} (a_f₁ a_f₂ : bounded_preformula L a_n 0) (H_1 : n = a_n),
- eq.rec
- (λ (a_f₁ a_f₂ : bounded_preformula L n 0) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (_F : bounded_preformula.below L a) (H_3 : a == a_f₁ ⟹ a_f₂),
- eq.rec
- (λ (_F : bounded_preformula.below L (a_f₁ ⟹ a_f₂)),
- id_rhs (bounded_preformula L m 0) ((_F.fst).fst a_1 ⟹ ((_F.snd).fst).fst a_1))
- _
- _F)
- _
- a
- _F)
- H_1
- a_f₁
- a_f₂)
- (λ {a_n : ℕ} (a_f : bounded_preformula L (a_n + 1) 0) (H_1 : n = a_n),
- eq.rec
- (λ (a_f : bounded_preformula L (n + 1) 0) (a_2 : l = 0),
- eq.rec
- (λ (a : bounded_preformula L n 0) (_F : bounded_preformula.below L a) (H_3 : a == ∀' a_f),
- eq.rec
- (λ (_F : bounded_preformula.below L (∀' a_f)),
- id_rhs (bounded_preformula L m 0) (∀'(_F.fst).fst (dvector_lift_var a_1)))
- _
- _F)
- _
- a
- _F)
- H_1
- a_f)
- _
- _
- _
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- ⊥
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- subst_var_bounded_term t₁ v ≃ subst_var_bounded_term t₁ v
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- bd_rel R
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- bd_apprel ((_F.fst).fst v) (subst_var_bounded_term t v)
- [debug.eqn_compiler.structural_rec] decoded equation rhs term:
- (_F.fst).fst v
- ==>
- subst_var_bounded_formula._main f v
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- (_F.fst).fst v ⟹ ((_F.snd).fst).fst v
- [debug.eqn_compiler.structural_rec] decoded equation rhs term:
- (_F.fst).fst v
- ==>
- subst_var_bounded_formula._main f₁ v
- [debug.eqn_compiler.structural_rec] decoded equation rhs term:
- ((_F.snd).fst).fst v
- ==>
- subst_var_bounded_formula._main f₂ v
- [debug.eqn_compiler.structural_rec] elim_match equation rhs:
- ∀'(_F.fst).fst (dvector_lift_var v)
- [debug.eqn_compiler.structural_rec] decoded equation rhs term:
- (_F.fst).fst (dvector_lift_var v)
- ==>
- subst_var_bounded_formula._main f (dvector_lift_var v)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement