[anneal] In setup, recursively cache Lean sources

Initialize all transitive Lean library dependencies of the Aeneas Lean
library as local Git repositories, and rewrite dependencies to point to
these as filesystem-local Git remotes. During `verify`, `lake build`
clones any source code it doesn't already have access to. This ensures
that this at least clones from the local filesystem instead of from the
internet.

gherrit-pr-id: Ghmd3zurxjuy6q66eay4blnbt7sfg7wlz

Author: joshlf

anneal/Dockerfile

@@ -85,7 +85,7 @@ RUN cargo build && \
 # command fetches and builds the dependencies.
 ENV ANNEAL_TOOLCHAIN_DIR=/opt/anneal_toolchain
 RUN cargo run && \
-    LEAN_DIR=$(find /opt/anneal_toolchain/.anneal/toolchain/ -type d -name "lean" | head -n 1) && \
+    LEAN_DIR=$(find /opt/anneal_toolchain/.anneal/toolchain/ -type d -path "*/backends/lean" | head -n 1) && \
     cd $LEAN_DIR && \
     lake exe graph imports.dot --to Aeneas,Aeneas.Std.Core,Aeneas.Std.WP,Aeneas.Tactic.Solver.ScalarTac,Aeneas.Std.Scalar.Core --include-deps && \
     python3 /workspace/tools/prune_mathlib.py imports.dot .lake/packages/mathlib

anneal/src/aeneas.rs

@@ -14,12 +14,14 @@ use std::{
     fmt::Write,
     fs,
     io::{BufRead, BufReader},
-    process::Stdio,
+    path::Path,
+    process::{Command, Stdio},
     sync::{Arc, Mutex},
 };
 
 use anyhow::{Context, Result, bail};
 use indicatif::{ProgressBar, ProgressStyle};
+use walkdir::WalkDir;
 
 use crate::{generate, resolve::LockedRoots, scanner::AnnealArtifact, setup::Tool};
 
@@ -376,6 +378,193 @@ pub fn generate_lean_workspace(roots: &LockedRoots, artifacts: &[AnnealArtifact]
     write_if_changed(&lean_generated_root.join("Generated.lean"), &generated_imports)
         .context("Failed to write Generated.lean")?;
 
+    // 1. Write Manifest
+    println!("Writing modified manifest to generated workspace...");
+    let lean_root = roots.lean_root();
+    let toolchain = crate::setup::Toolchain::resolve()?;
+    let toolchain_manifest_path =
+        toolchain.root.join("backends").join("lean").join("lake-manifest.json");
+    let user_manifest_path = lean_root.join("lake-manifest.json");
+
+    if toolchain_manifest_path.exists() {
+        let content = fs::read_to_string(&toolchain_manifest_path)
+            .context("Failed to read toolchain manifest")?;
+        let mut manifest: serde_json::Value =
+            serde_json::from_str(&content).context("Failed to parse toolchain manifest")?;
+
+        // Change name to anneal_verification
+        manifest["name"] = serde_json::Value::String("anneal_verification".to_string());
+
+        // Read actual HEAD commit of Aeneas in toolchain
+        let toolchain_aeneas_dir = toolchain.root.join("backends").join("lean");
+        let output = Command::new("git")
+            .args(["rev-parse", "HEAD"])
+            .current_dir(&toolchain_aeneas_dir)
+            .output()
+            .context("Failed to run `git rev-parse HEAD` in toolchain Aeneas")?;
+
+        if !output.status.success() {
+            bail!("`git rev-parse HEAD` failed in toolchain Aeneas");
+        }
+        let aeneas_rev = String::from_utf8(output.stdout)
+            .context("Failed to parse git output")?
+            .trim()
+            .to_string();
+
+        // Inject aeneas dependency
+        let aeneas_dep = serde_json::json!({
+            "configFile": "lakefile.lean",
+            "inherited": false,
+            "inputRev": "main",
+            "manifestFile": "lake-manifest.json",
+            "name": "aeneas",
+            "rev": aeneas_rev,
+            "scope": "",
+            "subDir": null,
+            "type": "git",
+            "url": format!("file://{}", toolchain_aeneas_dir.to_str().unwrap())
+        });
+
+        if let Some(packages) = manifest["packages"].as_array_mut() {
+            packages.insert(0, aeneas_dep);
+        } else {
+            bail!("Manifest packages is not an array");
+        }
+
+        let new_content = serde_json::to_string_pretty(&manifest)
+            .context("Failed to serialize modified manifest")?;
+        fs::write(&user_manifest_path, new_content).context("Failed to write user manifest")?;
+    } else {
+        bail!("Toolchain manifest missing at {}", toolchain_manifest_path.display());
+    }
+
+    // 2. Materialize Packages (Manual Copy)
+    println!("Materializing packages by copying from toolchain...");
+    let user_project_packages = lean_root.join(".lake").join("packages");
+
+    // Ensure .lake/packages exists
+    fs::create_dir_all(&user_project_packages)
+        .context("Failed to create .lake/packages directory")?;
+
+    // Copy Aeneas
+    let toolchain_aeneas_dir = toolchain.root.join("backends").join("lean");
+    let user_aeneas_dir = user_project_packages.join("aeneas");
+
+    if toolchain_aeneas_dir.exists() {
+        if user_aeneas_dir.exists() {
+            fs::remove_dir_all(&user_aeneas_dir)
+                .context("Failed to remove existing Aeneas directory in workspace")?;
+        }
+        let status = Command::new("cp")
+            .args(["-r", toolchain_aeneas_dir.to_str().unwrap(), user_aeneas_dir.to_str().unwrap()])
+            .status()
+            .context("Failed to copy Aeneas directory")?;
+        if !status.success() {
+            bail!("Failed to copy Aeneas directory from toolchain to workspace");
+        }
+
+        // Add Git remote 'origin' to match manifest
+        let status = Command::new("git")
+            .args([
+                "remote",
+                "add",
+                "origin",
+                &format!("file://{}", toolchain_aeneas_dir.to_str().unwrap()),
+            ])
+            .current_dir(&user_aeneas_dir)
+            .status()
+            .context("Failed to run `git remote add` in Aeneas clone")?;
+        if !status.success() {
+            bail!("`git remote add` failed in Aeneas clone");
+        }
+    }
+
+    // Copy dependencies
+    let toolchain_packages_dir = toolchain.root.join("packages");
+    if toolchain_packages_dir.exists() {
+        for entry in fs::read_dir(&toolchain_packages_dir)
+            .context("Failed to read toolchain packages directory")?
+        {
+            let entry = entry.context("Failed to read directory entry")?;
+            let path = entry.path();
+            if path.is_dir() {
+                let pkg_name = path.file_name().unwrap().to_str().unwrap();
+                let user_pkg_dir = user_project_packages.join(pkg_name);
+
+                if user_pkg_dir.exists() {
+                    fs::remove_dir_all(&user_pkg_dir)
+                        .context("Failed to remove existing package directory in workspace")?;
+                }
+                let status = Command::new("cp")
+                    .args(["-r", path.to_str().unwrap(), user_pkg_dir.to_str().unwrap()])
+                    .status()
+                    .context("Failed to copy package directory")?;
+                if !status.success() {
+                    bail!("Failed to copy package directory for {}", pkg_name);
+                }
+
+                // Update Git remote URL to match manifest
+                let status = Command::new("git")
+                    .args([
+                        "remote",
+                        "set-url",
+                        "origin",
+                        &format!("file://{}", path.to_str().unwrap()),
+                    ])
+                    .current_dir(&user_pkg_dir)
+                    .status()
+                    .context("Failed to run `git remote set-url` in package clone")?;
+                if !status.success() {
+                    bail!("`git remote set-url` failed in package clone for {}", pkg_name);
+                }
+            }
+        }
+    }
+
+    // 3. Post-Process Traces in the Clone
+    println!("Post-processing traces in the clone...");
+    let toolchain_aeneas = toolchain.root.join("backends").join("lean");
+    let toolchain_aeneas_str = toolchain_aeneas.to_str().unwrap();
+    let user_project_aeneas = user_project_packages.join("aeneas");
+    let user_project_aeneas_str = user_project_aeneas.to_str().unwrap();
+    let toolchain_packages_str = toolchain_packages_dir.to_str().unwrap();
+    let user_project_packages_str = user_project_packages.to_str().unwrap();
+
+    let process_build_dir = |dir: &Path| -> Result<()> {
+        if dir.exists() {
+            let walker = WalkDir::new(dir).into_iter();
+            for entry in walker {
+                let entry = entry.context("Failed to walk build directory")?;
+                let path = entry.path();
+                if path.is_file() && path.extension().map_or(false, |ext| ext == "trace") {
+                    let content = fs::read_to_string(path).context("Failed to read trace file")?;
+                    let mut new_content =
+                        content.replace(toolchain_aeneas_str, user_project_aeneas_str);
+                    new_content =
+                        new_content.replace(toolchain_packages_str, user_project_packages_str);
+
+                    if new_content != content {
+                        fs::write(path, new_content).context("Failed to write trace file")?;
+                    }
+                }
+            }
+        }
+        Ok(())
+    };
+
+    // Process all packages in .lake/packages
+    if user_project_packages.exists() {
+        for entry in
+            fs::read_dir(&user_project_packages).context("Failed to read user project packages")?
+        {
+            let entry = entry.context("Failed to read directory entry")?;
+            let path = entry.path();
+            if path.is_dir() {
+                process_build_dir(&path.join(".lake").join("build"))?;
+            }
+        }
+    }
+
     Ok(())
 }