2023-10-25 22:18:59 -07:00
|
|
|
import Pantograph.Protocol
|
|
|
|
|
|
|
|
|
|
namespace Pantograph
|
|
|
|
|
|
|
|
|
|
namespace Protocol
|
|
|
|
|
/-- Set internal names to "" -/
|
|
|
|
|
def Goal.devolatilize (goal: Goal): Goal :=
|
|
|
|
|
{
|
|
|
|
|
goal with
|
2023-10-30 14:44:06 -07:00
|
|
|
name := "",
|
2023-10-25 22:18:59 -07:00
|
|
|
vars := goal.vars.map removeInternalAux,
|
|
|
|
|
}
|
|
|
|
|
where removeInternalAux (v: Variable): Variable :=
|
|
|
|
|
{
|
|
|
|
|
v with
|
|
|
|
|
name := ""
|
|
|
|
|
}
|
|
|
|
|
end Protocol
|
|
|
|
|
|
|
|
|
|
end Pantograph
|
