Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -803,7 +803,13 @@ def construction : Language.TermRec.Construction V L (blueprint pL) where
func (_ _ _ _ v') := listMax v'
bvar_defined := by intro v; simp [blueprint]
fvar_defined := by intro v; simp [blueprint]
func_defined := by intro v; simp [blueprint]
func_defined := by
intro v
simp only [blueprint]
-- Avoid reducing the large encoded formula during kernel conversion.
rw [HierarchySymbol.Semiformula.val_mkSigma]
rw [Semiformula.eval_substs]
simp

end BV
end IsUTerm
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,13 @@ def construction : Language.TermRec.Construction V L (blueprint pL) where
bvar (param z) := (param 1).[z]
fvar (_ x) := ^&x
func (_ k f _ v') := ^func k f v'
bvar_defined := by intro v; simp [blueprint]
bvar_defined := by
intro v
simp only [blueprint]
-- Avoid reducing the large encoded formula during kernel conversion.
rw [HierarchySymbol.Semiformula.val_mkSigma]
rw [Semiformula.eval_substs]
simp
fvar_defined := by intro v; simp [blueprint]
func_defined := by intro v; simp [blueprint]

Expand Down
Loading