ostd/mm/

vm_space.rs

// SPDX-License-Identifier: MPL-2.0
//! Virtual memory space management.
//!
//! The [`VmSpace`] struct is provided to manage the virtual memory space of a
//! user. Cursors are used to traverse and modify over the virtual memory space
//! concurrently. The VM space cursor [`self::Cursor`] is just a wrapper over
//! the page table cursor, providing efficient, powerful concurrent accesses
//! to the page table.
use vstd::{pervasive::arbitrary, prelude::*, vpanic};
use vstd_extra::{assert, assert_eq, ghost_tree::*, panic::may_panic, prelude::*};

use crate::specs::{
    arch::*,
    mm::{
        frame::{
            meta_owners::{FracMetadataPerm, MetaSlotStorage},
            meta_region_owners::MetaRegionOwners,
        },
        io::VmIoOwner,
        page_table::{cursor::owners::CursorOwner, *},
        tlb::TlbModel,
        virt_mem::{MemView, VirtPtr},
    },
    task::InAtomicMode,
};

use crate::arch::mm::{PageTableEntry, PagingConsts, current_page_table_paddr};
use crate::cpu::{AtomicCpuSet, CpuSet};
use crate::error::Error;
use crate::mm::frame::meta::mapping::meta_to_frame;
use crate::mm::frame::untyped::UFrame;
use crate::mm::frame::{Frame, MetaSlot};
use crate::mm::kspace::KERNEL_PAGE_TABLE;
use crate::mm::kspace::KernelPtConfig;
use crate::mm::page_table::*;
use crate::mm::tlb::*;
use crate::mm::{
    KERNEL_VADDR_RANGE,
    page_table::{EntryOwner, PageTableFrag, PageTableGuard},
};
use crate::mm::{
    MAX_USERSPACE_VADDR, Paddr, PagingConstsTrait, PagingLevel, Vaddr,
    io::{Fallible, VmReader, VmWriter},
    page_prop::PageProperty,
};
use crate::sync::RoArc;
use alloc::sync::Arc;
use alloc::vec::Vec;
use core::marker::PhantomData;
use core::{ops::Range, sync::atomic::Ordering};

#[path = "../../specs/mm/vm_space.rs"]
pub mod vm_space_specs;
use vm_space_specs::*;

verus! {

/// A virtual address space for user-mode tasks, enabling safe manipulation of user-space memory.
///
/// The [`VmSpace`] type provides memory isolation guarantees between user-space and
/// kernel-space. For example, given an arbitrary user-space pointer, one can read and
/// write the memory location referred to by the user-space pointer without the risk of
/// breaking the memory safety of the kernel space.
///
/// # Task Association Semantics
///
/// As far as OSTD is concerned, a [`VmSpace`] is not necessarily associated with a task. Once a
/// [`VmSpace`] is activated (see [`VmSpace::activate`]), it remains activated until another
/// [`VmSpace`] is activated **possibly by another task running on the same CPU**.
///
/// This means that it's up to the kernel to ensure that a task's [`VmSpace`] is always activated
/// while the task is running. This can be done by using the injected post schedule handler
/// (see [`inject_post_schedule_handler`]) to always activate the correct [`VmSpace`] after each
/// context switch.
///
/// If the kernel otherwise decides not to ensure that the running task's [`VmSpace`] is always
/// activated, the kernel must deal with race conditions when calling methods that require the
/// [`VmSpace`] to be activated, e.g., [`UserMode::execute`], [`VmReader`] and [`VmWriter`].
/// Otherwise, the behavior is unspecified, though it's guaranteed _not_ to compromise the kernel's
/// memory safety.
///
/// # Memory Backing
///
/// A newly-created [`VmSpace`] is not backed by any physical memory pages. To
/// provide memory pages for a [`VmSpace`], one can allocate and map physical
/// memory ([`UFrame`]s) to the [`VmSpace`] using the cursor.
///
/// A [`VmSpace`] can also attach a page fault handler, which will be invoked to
/// handle page faults generated from user space.
///
/// [`inject_post_schedule_handler`]: crate::task::inject_post_schedule_handler
/// [`UserMode::execute`]: crate::user::UserMode::execute
/// [`VmReader`]: crate::mm::io::VmWriter
/// [`VmReader`]: crate::mm::io::VmReader
/// # Verification Design
///
/// A [`VmSpace`] has a corresponding [`VmSpaceOwner`] object that is used to track its state,
/// and against which its invariants are stated. The [`VmSpaceOwner`] catalogues the readers and writers
/// that are associated with the [`VmSpace`], and the [`MemView`] which encodes the active page table and
/// the subset of the TLB that covers the same virtual address space.
/// All proofs about the correctness of the readers and writers are founded on the well-formedness of the [`MemView`]:
///
/// ```rust
/// open spec fn mem_view_wf(self) -> bool {
///    &&& self.mem_view is Some <==> self.mv_range@ is Some
///    // This requires that TotalMapping (mvv) = mv ∪ writer mappings ∪ reader mappings
///    &&& self.mem_view matches Some(remaining_view)
///        ==> self.mv_range@ matches Some(total_view)
///        ==> {
///        &&& remaining_view.mappings_are_disjoint()
///        &&& total_view.mappings_are_disjoint()
///        // ======================
///        // Remaining Consistency
///        // ======================
///        &&& remaining_view.mappings.subset_of(total_view.mappings)
///        &&& remaining_view.memory.dom().subset_of(
///            total_view.memory.dom(),
///        )
///        // =====================
///        // Total View Consistency
///        // =====================
///        &&& forall|va: usize|
///            remaining_view.addr_transl(va) == total_view.addr_transl(
///                va,
///            )
///        // =====================
///        // Writer correctness
///        // =====================
///        &&& forall|i: int|
///            0 <= i < self.writers.len() ==> {
///                &&& self.writers[i].inv()
///            }
///        }
///    }
/// }
/// ```
pub struct VmSpace<'a> {
    pub pt: PageTable<UserPtConfig>,
    pub cpus: AtomicCpuSet,
    pub _marker: PhantomData<&'a ()>,
}

type Result<A> = core::result::Result<A, Error>;

#[verus_verify]
impl<'a> VmSpace<'a> {
    #[inline]
    #[verus_spec(r =>
        with
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(regions).inv(),
    )]
    #[allow(private_interfaces)]
    pub fn default<'rcu>() -> Self {
        proof_with!(Tracked(regions), Tracked(guards));
        Self::new()
    }

    /// Creates a new VM address space.
    ///
    /// This allocates a new user page table by duplicating the kernel page
    /// table's top-level entries, and returns a [`VmSpace`] that wraps it.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The meta-region invariants must hold.
    /// ## Postconditions
    /// - The returned [`VmSpace`] instance satisfies the invariants of [`VmSpace`].
    #[inline]
    #[verus_spec(r =>
        with
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(regions).inv(),
        ensures
            final(regions).inv(),
    )]
    #[allow(private_interfaces)]
    pub fn new<'rcu>() -> Self {
        proof_decl! {
            let tracked mut kernel_owner_opt: Option<&PageTableOwner<KernelPtConfig>> = None;
        }
        let kpt = {
            #[verus_spec(with Tracked(&mut kernel_owner_opt), Tracked(regions), Tracked(guards))]
            crate::mm::kspace::kvirt_area::get_kernel_page_table()
        };
        proof_decl! {
            let tracked kernel_owner = kernel_owner_opt.tracked_take();
        }
        let pt = {
            #[verus_spec(with Tracked(kernel_owner), Tracked(regions), Tracked(guards))]
            kpt.create_user_page_table::<crate::specs::task::AnyAtomicGuard>()
        };
        Self { pt, cpus: AtomicCpuSet::new(CpuSet::new_empty()), _marker: PhantomData }
    }

    /// Gets an immutable cursor in the virtual address range.
    ///
    /// The cursor behaves like a lock guard, exclusively owning a sub-tree of
    /// the page table, preventing others from creating a cursor in it. So be
    /// sure to drop the cursor as soon as possible.
    ///
    /// The creation of the cursor may block if another cursor having an
    /// overlapping range is alive.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table owner must be valid.
    /// ## Postconditions
    /// - When the virtual address range satisfies
    ///   [`cursor_new_success_conditions`](crate::mm::page_table::Cursor::cursor_new_success_conditions),
    ///   the result is `Ok` and a [`CursorOwner`] is returned.
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<PageTableOwner<UserPtConfig>>,
            Ghost(root_guard): Ghost<PageTableGuard<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
                -> cursor_owner: Tracked<Option<CursorOwner<'a, UserPtConfig>>>,
        requires
            self.pt.relates_owner(owner, *old(regions)),
            owner.0.value().node().relate_guard(root_guard),
            va.end > 0,
        ensures
            crate::mm::page_table::Cursor::<UserPtConfig, G>::cursor_new_success_conditions(*va) ==> (r matches Ok(_) && cursor_owner@ matches Some(_)),
            // On the success branch, the returned cursor owner satisfies
            // its invariant. Follows from the underlying PT::cursor's
            // ensures: r is Ok ⇒ cursor_new_success_conditions (by
            // contrapositive of the !cond ⇒ Err clause) ⇒ invariants
            // hold ⇒ cursor_owner.inv().
            cursor_owner@ matches Some(c) ==> c.inv(),
    )]
    pub fn cursor<G: InAtomicMode>(&'a self, guard: &'a G, va: &Range<Vaddr>) -> Result<
        Cursor<'a, G>,
    > {
        proof_decl! {
            let tracked mut out_owner: Option<CursorOwner<'a, UserPtConfig>>;
        }
        match {
            #[verus_spec(with Tracked(owner), Ghost(root_guard), Tracked(regions), Tracked(guards))]
            self.pt.cursor(guard, va)
        } {
            Ok((pt_cursor, tracked_owner)) => {
                proof! { out_owner = Some::<CursorOwner<'a, UserPtConfig>>(tracked_owner.get()); }
                proof_with!(|= Tracked(out_owner));
                Ok(Cursor(pt_cursor))
            },
            Err(e) => {
                proof! { out_owner = None; }
                proof_with!(|= Tracked(out_owner));
                Err(Error::AccessDenied)
            },
        }
    }

    /// Gets a mutable cursor in the virtual address range.
    ///
    /// The same as [`Self::cursor`], the cursor behaves like a lock guard,
    /// exclusively owning a sub-tree of the page table, preventing others
    /// from creating a cursor in it. So be sure to drop the cursor as soon as
    /// possible.
    ///
    /// The creation of the cursor may block if another cursor having an
    /// overlapping range is alive. The modification to the mapping by the
    /// cursor may also block or be overridden by the mapping of another cursor.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table owner must be valid.
    /// ## Postconditions
    /// - When the virtual address range satisfies
    ///   [`cursor_new_success_conditions`](crate::mm::page_table::Cursor::cursor_new_success_conditions),
    ///   the result is `Ok` and a [`CursorOwner`] is returned.
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<PageTableOwner<UserPtConfig>>,
            Ghost(root_guard): Ghost<PageTableGuard<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>
                -> cursor_owner: Tracked<Option<CursorOwner<'a, UserPtConfig>>>,
        requires
            self.pt.relates_owner(owner, *old(regions)),
            owner.0.value().node().relate_guard(root_guard),
            va.end > 0,
        ensures
            crate::mm::page_table::Cursor::<UserPtConfig, G>::cursor_new_success_conditions(*va) ==> (r matches Ok(_) && cursor_owner@ matches Some(_)),
            // See `cursor` above for the derivation.
            cursor_owner@ matches Some(c) ==> c.inv(),
    )]
    pub fn cursor_mut<G: InAtomicMode>(&'a self, guard: &'a G, va: &Range<Vaddr>) -> Result<
        CursorMut<'a, G>,
    > {
        proof_decl! {
            let tracked mut out_owner: Option<CursorOwner<'a, UserPtConfig>>;
        }
        match {
            #[verus_spec(with Tracked(owner), Ghost(root_guard), Tracked(regions), Tracked(guards))]
            self.pt.cursor_mut(guard, va)
        } {
            Ok((pt_cursor, tracked_owner)) => {
                proof! { out_owner = Some::<CursorOwner<'a, UserPtConfig>>(tracked_owner.get()); }
                proof_with!(|= Tracked(out_owner));
                Ok(CursorMut { pt_cursor, flusher: TlbFlusher::new(&self.cpus) })
            },
            Err(e) => {
                proof! { out_owner = None; }
                proof_with!(|= Tracked(out_owner));
                Err(Error::AccessDenied)
            },
        }
    }

    /// Activates the page table on the current CPU.
    #[verifier::external_body]
    pub fn activate(this: &RoArc<Self>) {
        // No support for CPU set semantics; skip now
        // let preempt_guard = disable_preempt();
        // let cpu = preempt_guard.current_cpu();
        // let last_ptr = ACTIVATED_VM_SPACE.load();
        // if last_ptr == Arc::as_ptr(self) {
        //     return;
        // }
        // // Record ourselves in the CPU set and the activated VM space pointer.
        // // `Acquire` to ensure the modification to the PT is visible by this CPU.
        // self.cpus.add(cpu, Ordering::Acquire);
        // let self_ptr = Arc::into_raw(Arc::clone(self)) as *mut VmSpace;
        // ACTIVATED_VM_SPACE.store(self_ptr);
        // if !last_ptr.is_null() {
        //     // SAFETY: The pointer is cast from an `Arc` when it's activated
        //     // the last time, so it can be restored and only restored once.
        //     let last = unsafe { Arc::from_raw(last_ptr) };
        //     last.cpus.remove(cpu, Ordering::Relaxed);
        // }
        // self.pt.activate();
        unimplemented!()
    }

    /// Creates a reader to read data from the user space of the current task.
    ///
    /// Returns [`Err`] if this [`VmSpace`] is not the user space of the current task
    /// or the `vaddr` and `len` do not represent a valid user space memory range.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - The [`VmSpaceOwner`] invariant must hold.
    /// ## Postconditions
    /// - When [`Self::reader_success_cond`] holds, the result is `Ok`.
    /// - On success, the [`VmReader`] and its [`VmIoOwner`] are well-formed with no memory view.
    /// ## Safety
    /// - The function does not interact with the lower-level memory system directly.
    ///   By checking that the target (user) page table is not the active (kernel) one,
    ///   we ensure that the resulting reader cannot interact with kernel memory.
    #[inline]
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<&'a mut VmSpaceOwner>,
                -> reader_owner: Tracked<Option<VmIoOwner>>,
        requires
            old(owner).inv(),
        ensures
            final(owner).inv(),
            self.reader_success_cond(vaddr, len) ==> r is Ok && reader_owner@ is Some,
            r is Ok && reader_owner@ is Some ==> {
                &&& r.unwrap().wf(reader_owner@->0)
                &&& reader_owner@->0.mem_view is None
                &&& reader_owner@->0.inv()
            },
            // Range bound is necessary for success: the body's `checked_add`
            // guard rejects any out-of-range request before constructing a
            // reader. `nat` arithmetic subsumes the overflow case.
            r is Ok ==> (vaddr as nat) + (len as nat) <= MAX_USERSPACE_VADDR as nat,
    )]
    pub fn reader(&self, vaddr: Vaddr, len: usize) -> Result<VmReader<'a, Fallible>> {
        if current_page_table_paddr() != self.pt.root_paddr() {
            proof_with!(|= Tracked(None));
            Err(Error::AccessDenied)
        } else if vaddr.checked_add(len).unwrap_or(usize::MAX) > MAX_USERSPACE_VADDR {
            proof_with!(|= Tracked(None));
            Err(Error::AccessDenied)
        } else {
            let ghost id = owner.new_vm_io_id();
            proof_decl! {
                let tracked mut vm_reader_owner: VmIoOwner;
            }

            // SAFETY: The memory range is in user space, as checked above.
            let reader = unsafe {
                proof_with!(Ghost(id) => Tracked(vm_reader_owner));
                VmReader::from_user_space(VirtPtr::from_vaddr(vaddr, len), len)
            };

            proof_with!(|= Tracked(Some(vm_reader_owner)));
            Ok(reader)
        }
    }

    /// Creates a writer to write data to the user space of the current task.
    ///
    /// Returns [`Err`] if this [`VmSpace`] is not the user space of the current task
    /// or the `vaddr` and `len` do not represent a valid user space memory range.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - The [`VmSpaceOwner`] invariant must hold.
    /// ## Postconditions
    /// - When [`Self::writer_success_cond`] holds, the result is `Ok`.
    /// - On success, the [`VmWriter`] and its [`VmIoOwner`] are well-formed with no memory view.
    /// ## Safety
    /// - The function does not interact with the lower-level memory system directly.
    ///   By checking that the target (user) page table is not the active (kernel) one,
    ///   we ensure that the resulting writer cannot interact with kernel memory.
    #[inline]
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<&mut VmSpaceOwner>,
                -> writer_owner: Tracked<Option<VmIoOwner>>,
        requires
            old(owner).inv(),
        ensures
            final(owner).inv(),
            self.writer_success_cond(vaddr, len) ==> r is Ok && writer_owner@ is Some,
            r is Ok && writer_owner@ is Some ==> {
                &&& r.unwrap().wf(writer_owner@->0)
                &&& writer_owner@->0.mem_view is None
                &&& writer_owner@->0.inv()
            },
            // Range bound is necessary for success: see `reader` above.
            r is Ok ==> (vaddr as nat) + (len as nat) <= MAX_USERSPACE_VADDR as nat,
    )]
    pub fn writer(self, vaddr: Vaddr, len: usize) -> Result<VmWriter<'a, Fallible>> {
        if current_page_table_paddr() != self.pt.root_paddr() {
            proof_with!(|= Tracked(None));
            Err(Error::AccessDenied)
        } else if vaddr.checked_add(len).unwrap_or(usize::MAX) > MAX_USERSPACE_VADDR {
            proof_with!(|= Tracked(None));
            Err(Error::AccessDenied)
        } else {
            let ghost id = owner.new_vm_io_id();
            proof_decl! {
                let tracked mut vm_writer_owner: VmIoOwner;
            }

            // SAFETY: The memory range is in user space, as checked above.
            let reader = unsafe {
                proof_with!(Ghost(id) => Tracked(vm_writer_owner));
                VmWriter::from_user_space(VirtPtr::from_vaddr(vaddr, len), len)
            };

            proof_with!(|= Tracked(Some(vm_writer_owner)));
            Ok(reader)
        }
    }
}

/// The cursor for querying over the VM space without modifying it.
///
/// It exclusively owns a sub-tree of the page table, preventing others from
/// reading or modifying the same sub-tree. Two read-only cursors can not be
/// created from the same virtual address range either.
pub struct Cursor<'a, A: InAtomicMode>(pub crate::mm::page_table::Cursor<'a, UserPtConfig, A>);

#[verus_verify]
impl<'rcu, A: InAtomicMode> Cursor<'rcu, A> {
    /// Queries the mapping at the current virtual address.
    ///
    /// If the cursor is pointing to a valid virtual address that is locked,
    /// it will return the virtual address range and the mapped item.
    /// ## Preconditions
    /// - All system invariants must hold
    /// - **Liveness**: The function will return an error if the cursor is not within the locked range
    /// ## Postconditions
    /// - If there is a mapped item at the current virtual address ([`query_some_condition`]),
    /// it is returned along with the virtual address range that it maps ([`query_success_ensures`]).
    /// - The mapping that is returned corresponds to the abstract mapping given by [`query_item_spec`](CursorView::query_item_spec).
    /// - If there is no mapped item at the current virtual address ([`query_none_condition`]),
    /// it returns [`None`], and the virtual address range of the cursor's current position.
    /// ## Safety
    /// - This function preserves all memory invariants.
    /// - The locking mechanism prevents data races.
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'rcu, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).0.invariants(*old(owner), *old(regions), *old(guards)),
            // Out-of-range is a graceful `Err`; the sole panic is cloning
            // the resolved leaf frame when *that specific slot* is
            // saturated — precisely propagated from
            // `Cursor::query_panic_condition`.
            old(self).0.query_panic_condition(*old(owner), *old(regions)) ==> may_panic(),
        ensures
            final(self).0.invariants(*final(owner), *final(regions), *final(guards)),
            !old(self).0.query_panic_condition(*old(owner), *old(regions)),
            old(owner).in_locked_range() ==> r is Ok,
            r matches Ok(state) ==>
                final(self).0.query_some_condition(*final(owner)) ==>
                final(self).0.query_some_ensures(*final(owner), state),
            r matches Ok(state) ==>
                !final(self).0.query_some_condition(*final(owner)) ==>
                final(self).0.query_none_ensures(*final(owner), state),
            old(owner)@.mappings == final(owner)@.mappings,
    )]
    pub fn query(&mut self) -> Result<(Range<Vaddr>, Option<MappedItem>)> {
        Ok(
            #[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
            self.0.query()?,
        )
    }

    /// Moves the cursor forward to the next mapped virtual address.
    ///
    /// If there is mapped virtual address following the current address within
    /// next `len` bytes, it will return that mapped address. In this case,
    /// the cursor will stop at the mapped address.
    ///
    /// Otherwise, it will return `None`. And the cursor may stop at any
    /// address after `len` bytes.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// - **Liveness**: In order to avoid a panic, the length must be page-aligned and less than or equal to the remaining range of the cursor.
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: If there is a mapped address after the current address within the next `len` bytes,
    /// it will move the cursor to the next mapped address and return it.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// ## Panics
    /// This method panics if the length is longer than the remaining range of the cursor.
    /// ## Safety
    /// This function preserves all memory invariants.
    /// Because it panics rather than move the cursor to an invalid address,
    /// it ensures that the cursor is safe to use after the call.
    #[verus_spec(res =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'rcu, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).0.invariants(*old(owner), *old(regions), *old(guards)),
            old(self).0.find_next_panic_condition(len) ==> may_panic(),
        ensures
            !old(self).0.find_next_panic_condition(len),
            final(self).0.invariants(*final(owner), *final(regions), *final(guards)),
            res is Some ==> {
                &&& res->0 == final(self).0.va
                &&& final(owner).level <= final(owner).guard_level
                &&& final(owner).in_locked_range()
            },
    )]
    pub fn find_next(&mut self, len: usize) -> Option<Vaddr> {
        #[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
        self.0.find_next(len)
    }

    // [FIXED] BUG FOUND BY FV: missing panic documentation. https://github.com/asterinas/asterinas/pull/3007
    /// Jumps to the virtual address.
    ///
    /// If the target address is out of the range, this method will return `Err`.
    ///
    /// # Panics
    ///
    /// This method panics if the address has bad alignment.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// - **Liveness**:  The function will panic if the target `va` is not aligned
    /// to the base page size.
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: If the target `va` is within the cursor's locked range,
    /// the result will be `Ok` and the cursor's virtual address will be set to `va`.
    /// - **Correctness**: If the target `va` is outside the locked range, the result is `Err`.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// ## Safety
    /// This function preserves all memory invariants.
    /// Because it throws an error rather than move the cursor to an invalid address,
    /// it ensures that the cursor is safe to use after the call.
    /// The locking mechanism prevents data races.
    #[verus_spec(res =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'rcu, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).0.invariants(*old(owner), *old(regions), *old(guards)),
            // `CursorMut::jump` diverges on a misaligned `va` and may panic
            // in its `pop_level` repositioning ascent.
            old(self).0.jump_panic_condition(va) ==> may_panic(),
        ensures
            !old(self).0.jump_panic_condition(va),
            final(self).0.invariants(*final(owner), *final(regions), *final(guards)),
            final(self).0.barrier_va.start <= va < final(self).0.barrier_va.end ==> {
                &&& res is Ok
                &&& final(self).0.va == va
            },
            !(final(self).0.barrier_va.start <= va < final(self).0.barrier_va.end) ==> res is Err,
    )]
    pub fn jump(&mut self, va: Vaddr) -> Result<()> {
        (#[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
        self.0.jump(va))?;
        Ok(())
    }

    /// Get the virtual address of the current slot.
    #[verus_spec(
        returns
            self.0.va,
    )]
    pub fn virt_addr(&self) -> Vaddr {
        self.0.virt_addr()
    }
}

/// The cursor for modifying the mappings in VM space.
///
/// It exclusively owns a sub-tree of the page table, preventing others from
/// reading or modifying the same sub-tree.
pub struct CursorMut<'a, A: InAtomicMode> {
    pub pt_cursor: crate::mm::page_table::CursorMut<'a, UserPtConfig, A>,
    // We have a read lock so the CPU set in the flusher is always a superset
    // of actual activated CPUs.
    pub flusher: TlbFlusher<'a  /*, DisabledPreemptGuard*/ >,
}

#[verus_verify]
impl<'a, A: InAtomicMode> CursorMut<'a, A> {
    /// Queries the mapping at the current virtual address.
    ///
    /// This is the same as [`Cursor::query`].
    ///
    /// If the cursor is pointing to a valid virtual address that is locked,
    /// it will return the virtual address range and the mapped item.
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: If the cursor is within the locked range, the result is `Ok`.
    /// - **Correctness**: If there is a mapped item at the current virtual address ([`query_some_condition`]),
    /// it is returned along with the virtual address range that it maps ([`query_success_ensures`]).
    /// - **Correctness**: The mapping that is returned corresponds to the abstract mapping given by [`query_item_spec`](CursorView::query_item_spec).
    /// - **Correctness**: If there is no mapped item at the current virtual address ([`query_none_condition`]),
    /// it returns `None`, and the virtual address range of the cursor's current position.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// - **Safety**: The mappings in the page table are not affected.
    /// - **Safety**: The soundness of individual entries are not affected.
    /// ## Safety
    /// - This function preserves all memory invariants.
    /// - The locking mechanism prevents data races.
    #[verus_spec(res =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).pt_cursor.0.invariants(*old(owner), *old(regions), *old(guards)),
            // Out-of-range → graceful `Err`; the sole panic is cloning the
            // resolved leaf frame when *that specific slot* is saturated —
            // precisely propagated from `Cursor::query_panic_condition`.
            old(self).pt_cursor.0.query_panic_condition(*old(owner), *old(regions))
                ==> may_panic(),
        ensures
            final(self).pt_cursor.0.invariants(*final(owner), *final(regions), *final(guards)),
            !old(self).pt_cursor.0.query_panic_condition(*old(owner), *old(regions)),
            old(owner).in_locked_range() ==> res is Ok,
            res matches Ok(state) ==>
                final(self).pt_cursor.0.query_some_condition(*final(owner)) ==>
                final(self).pt_cursor.0.query_some_ensures(*final(owner), state),
            res matches Ok(state) ==>
                !final(self).pt_cursor.0.query_some_condition(*final(owner)) ==>
                final(self).pt_cursor.0.query_none_ensures(*final(owner), state),
            old(owner)@.mappings == final(owner)@.mappings,
    )]
    pub fn query(&mut self) -> Result<(Range<Vaddr>, Option<MappedItem>)> {
        Ok(
            #[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
            self.pt_cursor.query()?,
        )
    }

    /// Moves the cursor forward to the next mapped virtual address.
    ///
    /// This is the same as [`Cursor::find_next`].
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// - **Liveness**: In order to avoid a panic, the length must be page-aligned and less than or equal to the remaining range of the cursor.
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: If there is a mapped address after the current address within the next `len` bytes,
    /// it will move the cursor to the next mapped address and return it.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// ## Panics
    /// This method panics if the length is longer than the remaining range of the cursor.
    /// ## Safety
    /// This function preserves all memory invariants.
    /// Because it panics rather than move the cursor to an invalid address,
    /// it ensures that the cursor is safe to use after the call.
    #[verus_spec(res =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).pt_cursor.0.invariants(*old(owner), *old(regions), *old(guards)),
            old(self).pt_cursor.0.find_next_panic_condition(len) ==> may_panic(),
        ensures
            !old(self).pt_cursor.0.find_next_panic_condition(len),
            final(self).pt_cursor.0.invariants(*final(owner), *final(regions), *final(guards)),
            res is Some ==> {
                &&& res->0 == final(self).pt_cursor.0.va
                &&& final(owner).level <= final(owner).guard_level
                &&& final(owner).in_locked_range()
            },
    )]
    pub fn find_next(&mut self, len: usize) -> Option<Vaddr> {
        #[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
        self.pt_cursor.find_next(len)
    }

    // [FIXED] BUG FOUND BY FV: missing panic documentation. https://github.com/asterinas/asterinas/pull/3007
    /// Jump to the virtual address.
    ///
    /// This is the same as [`Cursor::jump`].
    ///
    /// # Panics
    ///
    /// This method panics if the address has bad alignment.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// - **Liveness**:  The function will panic if the target `va` is not aligned
    /// to the base page size.
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: If the target `va` is within the cursor's locked range,
    /// the result will be `Ok` and the cursor's virtual address will be set to `va`.
    /// - **Correctness**: If the target `va` is outside the locked range, the result is `Err`.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// ## Panics
    /// This method panics if the target address is not aligned to the page size.
    /// ## Safety
    /// This function preserves all memory invariants.
    /// Because it throws an error rather than move the cursor to an invalid address,
    /// it ensures that the cursor is safe to use after the call.
    /// The locking mechanism prevents data races.
    #[verus_spec(res =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>
        requires
            old(self).pt_cursor.0.invariants(*old(owner), *old(regions), *old(guards)),
            // `CursorMut::jump` diverges on a misaligned `va` and may panic
            // in its `pop_level` repositioning ascent.
            old(self).pt_cursor.0.jump_panic_condition(va) ==> may_panic(),
        ensures
            !old(self).pt_cursor.0.jump_panic_condition(va),
            final(self).pt_cursor.0.invariants(*final(owner), *final(regions), *final(guards)),
            final(self).pt_cursor.0.barrier_va.start <= va < final(self).pt_cursor.0.barrier_va.end ==> {
                &&& res is Ok
                &&& final(self).pt_cursor.0.va == va
            },
            !(final(self).pt_cursor.0.barrier_va.start <= va < final(self).pt_cursor.0.barrier_va.end) ==> res is Err,
    )]
    pub fn jump(&mut self, va: Vaddr) -> Result<()> {
        (#[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
        self.pt_cursor.jump(va))?;
        Ok(())
    }

    /// Get the virtual address of the current slot.
    #[verus_spec(r =>
        returns
            self.pt_cursor.0.va,
    )]
    pub fn virt_addr(&self) -> Vaddr {
        self.pt_cursor.virt_addr()
    }

    /// Get the dedicated TLB flusher for this cursor.
    #[verus_spec(ret =>
        ensures
            *ret == old(self).flusher,
            *final(ret) == final(self).flusher,
    )]
    pub fn flusher(&mut self) -> &mut TlbFlusher<'a> {
        &mut self.flusher
    }

    /// Map a frame into the current slot.
    ///
    /// This method will bring the cursor to the next slot after the modification.
    /// If there is an existing mapping at the current slot, it will be replaced
    /// and the TLB will be flushed for that entry.
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    ///   ([`invariants`](crate::mm::page_table::Cursor::invariants)) and the TLB invariant
    ///   ([`TlbModel::inv`]) must hold before the call.
    /// - **Liveness**: The cursor must not be past the end of its locked range,
    ///   and the frame's level must fit within the remaining range, or the function will panic.
    /// - **Bookkeeping**: The frame must be well-formed with respect to its entry owner
    ///   ([`item_wf`](Self::item_wf)).
    /// ## Postconditions
    /// - **Safety Invariants**: Page table cursor safety invariants are preserved.
    /// - **Correctness**: The page table view is updated with the new mapping
    ///   according to [`map_item_ensures`](Self::map_item_ensures).
    /// - **Correctness**: If the metadata region was well-formed before the call
    ///   and the frame was not already mapped, it will be well-formed after.
    /// ## Safety
    /// - For soundness purposes, it doesn't matter if a frame is mapped multiple times
    /// in the same page table. There is still a clear definition of the behavior.
    #[verus_spec(
        with
            Tracked(cursor_owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(entry_owner): Tracked<EntryOwner<UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
            Tracked(tlb_model): Tracked<&mut TlbModel>,
        requires
            old(tlb_model).inv(),
            old(self).pt_cursor.0.invariants(*old(cursor_owner), *old(regions), *old(guards)),
            old(self).item_wf(frame, prop, entry_owner, *old(regions)),
            old(self).pt_cursor.map_panic_conditions(MappedItem { frame: frame, prop: prop }) ==> may_panic(),
        ensures
            !old(self).pt_cursor.map_panic_conditions(MappedItem { frame: frame, prop: prop }),
            final(self).pt_cursor.0.invariants(*final(cursor_owner), *final(regions), *final(guards)),
            old(self).map_item_ensures(
                frame,
                prop,
                old(cursor_owner)@,
                final(cursor_owner)@,
            ),
    )]
    pub fn map(&mut self, frame: UFrame, prop: PageProperty) {
        let start_va = self.virt_addr();
        let item = MappedItem { frame: frame, prop: prop };

        // SAFETY: It is safe to map untyped memory into the userspace.
        let Err(frag) = (unsafe {
            #[verus_spec(with Tracked(cursor_owner), Tracked(entry_owner), Tracked(regions), Tracked(guards))]
            self.pt_cursor.map(item)
        }) else {
            return;  // No mapping exists at the current address.
        };

        match frag {
            PageTableFrag::Mapped { va, item } => {
                //debug_assert_eq!(va, start_va);
                let old_frame = item.frame;

                #[verus_spec(with Tracked(tlb_model))]
                self.flusher.issue_tlb_flush_with(
                    TlbFlushOp::Address(start_va),
                    old_frame.into_dyn(),
                );
                #[verus_spec(with Tracked(tlb_model))]
                self.flusher.dispatch_tlb_flush();
            },
            PageTableFrag::StrayPageTable { .. } => {
                assert(false) by {
                    assert(UserPtConfig::item_into_raw(item).1 == 1);
                };
                #[cfg(feature = "allow_panic")]
                vpanic!("`UFrame` is base page sized but re-mapping out a child PT");
            },
        }
    }

    /// Clears the mapping starting from the current slot,
    /// and returns the number of unmapped pages.
    ///
    /// This method will bring the cursor forward by `len` bytes in the virtual
    /// address space after the modification.
    ///
    /// Already-absent mappings encountered by the cursor will be skipped. It
    /// is valid to unmap a range that is not mapped.
    ///
    /// It must issue and dispatch a TLB flush after the operation. Otherwise,
    /// the memory safety will be compromised. Please call this function less
    /// to avoid the overhead of TLB flush. Using a large `len` is wiser than
    /// splitting the operation into multiple small ones.
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    /// ([crate::mm::page_table::Cursor::invariants]) must hold before the call.
    /// - **Safety Invariants**: The TLB invariant ([TlbModel::inv]) must hold.
    /// - **Liveness**: In order to avoid a panic, the length must be page-aligned and less than or equal to the remaining range of the cursor.
    /// ## Postconditions
    /// - **Safety Invariants**: The page table cursor safety invariants are preserved.
    /// - **Safety Invariants**: The TLB invariant is preserved.
    /// - **Correctness**: Unmaps a range of virtual addresses from the current address up to `len` bytes
    /// and returns the number of mappings that were removed.
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be well-formed after.
    /// ## Panics
    /// Panics if:
    ///  - the length is longer than the remaining range of the cursor;
    ///  - the length is not page-aligned.
    /// ## Safety
    /// - It is always sound to unmap pages. We flush unmapped pages from the TLB to ensure consistency.
    /// - TODO: formalizing and proving that this function preserves TLB consistency would
    /// be pretty straightforward and would be a nice addition to the correctness properties.
    #[verus_spec(r =>
        with
            Tracked(cursor_owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
            Tracked(tlb_model): Tracked<&mut TlbModel>,
        requires
            old(self).pt_cursor.0.invariants(*old(cursor_owner), *old(regions), *old(guards)),
            old(tlb_model).inv(),
            old(self).pt_cursor.0.find_next_panic_condition(len) ==> may_panic(),
        ensures
            !old(self).pt_cursor.0.find_next_panic_condition(len),
            final(self).pt_cursor.0.invariants(*final(cursor_owner), *final(regions), *final(guards)),
            old(cursor_owner)@.unmap_spec(len, final(cursor_owner)@, r),
            final(tlb_model).inv(),
    )]
    #[verifier::spinoff_prover]
    pub fn unmap(&mut self, len: usize) -> usize {
        proof {
            cursor_owner.view_preserves_inv();
        }

        assert_eq!(len % PAGE_SIZE, 0);

        // [KNOWN] BUG FOUND BY FV: `self.va + len` could overflow. For now assume that it doesn't. https://github.com/asterinas/asterinas/issues/3159
        assume(self.pt_cursor.0.va + len <= usize::MAX);

        assert!(self.virt_addr() + len <= self.pt_cursor.0.barrier_va.end);

        assert(!self.pt_cursor.0.find_next_panic_condition(len));

        let end_va = self.virt_addr() + len;
        let mut num_unmapped: usize = 0;

        let ghost start_va: Vaddr = cursor_owner@.cur_va;
        // The "adjusted base" accumulates splits: starts as the split-at-boundaries
        // version of start_mappings and gets updated when take_next splits huge pages.
        let ghost mut adjusted_base: Set<Mapping> = cursor_owner@.mappings;
        // Track the set of removed mappings explicitly (not as a VA range filter).
        let ghost mut removed: Set<Mapping> = Set::empty();

        proof {
            // end_va <= barrier_va.end == locked_range().end. The cursor invariant
            // bounds locked_range().end by `vaddr_range_spec::<C>().1 + 1`,
            // and for UserPtConfig that evaluates to 2^47.
            lemma_vaddr_range_spec_user();
            assert((self.pt_cursor.0.va + len) % PAGE_SIZE as int == 0) by (compute);
        }

        #[verus_spec(
            invariant
                self.pt_cursor.0.va % PAGE_SIZE == 0,
                end_va % PAGE_SIZE == 0,
                end_va <= 0x0000_8000_0000_0000usize,
                self.pt_cursor.0.invariants(*cursor_owner, *regions, *guards),
                end_va <= self.pt_cursor.0.barrier_va.end,
                tlb_model.inv(),
                start_va <= cursor_owner@.cur_va,
                // Split-aware invariant: adjusted_base tracks accumulated splits,
                // removed tracks the explicitly removed set.
                cursor_owner@.mappings == adjusted_base.difference(removed),
                removed.subset_of(adjusted_base),
                num_unmapped as nat == removed.len(),
                crate::specs::mm::page_table::mapping_set_lemmas::wf_mapping_set(adjusted_base),
                // Everything removed is in the [start, end) range.
                forall |m: Mapping| #[trigger] removed.contains(m) ==>
                    start_va <= m.va_range.start < end_va,
                // Per-config VA bound: every removed mapping fits within the
                // user VA space, sourced from the cursor view prior to removal.
                forall |m: Mapping| #[trigger] removed.contains(m) ==>
                    m.va_range.end <= 0x0000_8000_0000_0000_usize,
                // Nothing in [start_va, end_va) with start < cursor_va remains,
                // unless it is a sub-mapping of a boundary-straddling entry.
                forall |m: Mapping| #![auto] adjusted_base.contains(m) && !removed.contains(m)
                    && start_va <= m.va_range.start && m.va_range.start < end_va ==>
                    m.va_range.start >= cursor_owner@.cur_va
                    || exists |parent: Mapping| #[trigger] old(cursor_owner)@.mappings.contains(parent)
                        && parent.va_range.start < start_va
                        && parent.va_range.start <= m.va_range.start
                        && m.va_range.end <= parent.va_range.end
                        && m.pa_range.start == (parent.pa_range.start + (m.va_range.start - parent.va_range.start)) as Paddr
                        && m.property == parent.property,
                start_va == old(cursor_owner)@.cur_va,
                old(cursor_owner)@.inv(),
                // Locality: old mappings fully outside [start, end) survive in adjusted_base.
                // (Straddling mappings may be split — see refinement.)
                forall |m: Mapping| #[trigger] old(cursor_owner)@.mappings.contains(m)
                    && (m.va_range.end <= start_va || m.va_range.start >= end_va)
                    ==> #[trigger] adjusted_base.contains(m),
                // Refinement: every mapping in adjusted_base is either from the old view
                // or a sub-mapping of an old entry (from boundary splits).
                forall |m: Mapping| #[trigger] adjusted_base.contains(m) ==>
                    old(cursor_owner)@.mappings.contains(m)
                    || exists |parent: Mapping| #[trigger] old(cursor_owner)@.mappings.contains(parent)
                        && parent.va_range.start <= m.va_range.start
                        && m.va_range.end <= parent.va_range.end
                        && m.pa_range.start == (parent.pa_range.start + (m.va_range.start - parent.va_range.start)) as Paddr
                        && m.property == parent.property,
            invariant_except_break
                self.pt_cursor.0.va <= end_va,
                self.pt_cursor.0.va < end_va ==> cursor_owner.in_locked_range(),
            ensures
                self.pt_cursor.0.va >= end_va,
            decreases end_va - self.pt_cursor.0.va
        )]
        loop {
            let ghost prev_va: Vaddr = cursor_owner@.cur_va;
            let ghost prev_mappings: Set<Mapping> = cursor_owner@.mappings;

            let ghost prev_view_inv: bool = cursor_owner@.inv();
            proof {
                cursor_owner.view_preserves_inv();
                // Per-config VA bound on prev_mappings — needed for
                // preserving the `removed`-end-bound loop invariant. The user
                // cursor's view lies in [0, 0x8000_0000_0000) by the PROVEN
                // `lemma_view_in_vaddr_range_user` (no longer the generic
                // axiom), which follows from `cursor_owner.inv()`'s isolation
                // (borrowed-kernel-half) clause.
                crate::specs::mm::page_table::cursor::owners::lemma_view_in_vaddr_range_user(
                    cursor_owner,
                );
                lemma_vaddr_range_spec_user();
            }

            // SAFETY: It is safe to un-map memory in the userspace.
            let Some(frag) = (unsafe {
                #[verus_spec(with Tracked(cursor_owner), Tracked(regions), Tracked(guards))]
                self.pt_cursor.take_next(end_va - self.virt_addr())
            }) else {
                proof {
                    // At break: take_next returned None, so no mappings in [prev_va, end_va).
                    // Any m with start >= prev_va leads to contradiction via the empty filter.
                    assert forall|m: Mapping|
                        #![auto]
                        adjusted_base.contains(m) && !removed.contains(m) && start_va
                            <= m.va_range.start && m.va_range.start
                            < end_va implies m.va_range.start >= cursor_owner@.cur_va || exists|
                        parent: Mapping,
                    | #[trigger]
                        old(cursor_owner)@.mappings.contains(parent) && parent.va_range.start
                            < start_va && parent.va_range.start <= m.va_range.start
                            && m.va_range.end <= parent.va_range.end && m.pa_range.start == (
                        parent.pa_range.start + (m.va_range.start - parent.va_range.start)) as Paddr
                            && m.property == parent.property by {
                        if m.va_range.start >= prev_va {
                            assert(prev_mappings.filter(
                                |m2: Mapping| prev_va <= m2.va_range.start < end_va,
                            ).contains(m));
                            assert(false);
                        }
                    };
                }
                break;
            };

            let ghost old_adjusted = adjusted_base;
            let ghost old_removed = removed;

            let ghost frag_ghost = frag;

            match frag {
                PageTableFrag::Mapped { va, item, .. } => {
                    let frame = item.frame;
                    proof {
                        lemma_vaddr_range_spec_user();
                        // `wf_mapping_set(removed)` from the wf adjusted_base
                        // via subset; `va_range.end <= 2^47` for every removed
                        // mapping is a loop invariant. Together they give
                        // |removed| < usize::MAX, so num_unmapped + 1 fits.
                        crate::specs::mm::page_table::mapping_set_lemmas::lemma_wf_subset(
                            adjusted_base,
                            removed,
                        );
                        crate::specs::mm::page_table::mapping_set_lemmas::lemma_mapping_set_cardinality_fits_usize(
                        removed);
                    }
                    num_unmapped += 1;
                    #[verus_spec(with Tracked(tlb_model))]
                    self.flusher.issue_tlb_flush_with(TlbFlushOp::Address(va), frame.into_dyn());
                },
                PageTableFrag::StrayPageTable { pt, va, len, num_frames } => {
                    proof {
                        let ghost new_removed = old_removed.union(
                            prev_mappings.filter(
                                |m2: Mapping|
                                    frag_ghost->StrayPageTable_va <= m2.va_range.start
                                        < frag_ghost->StrayPageTable_va
                                        + frag_ghost->StrayPageTable_len,
                            ),
                        );
                        assert(new_removed.subset_of(old_adjusted)) by {
                            assert forall|m: Mapping|
                                new_removed.contains(m) implies old_adjusted.contains(m) by {
                                if prev_mappings.contains(m) {
                                    // m ∈ prev_mappings = old_adjusted \ old_removed ⊆ old_adjusted.
                                }
                            };
                        };
                        crate::specs::mm::page_table::mapping_set_lemmas::lemma_wf_subset(
                            old_adjusted,
                            new_removed,
                        );
                        lemma_vaddr_range_spec_user();
                        crate::specs::mm::page_table::mapping_set_lemmas::lemma_mapping_set_cardinality_fits_usize(
                        new_removed);
                        // |new_removed| = |old_removed| + |subtree| (disjoint).
                        assert(old_removed.disjoint(
                            prev_mappings.filter(
                                |m2: Mapping|
                                    frag_ghost->StrayPageTable_va <= m2.va_range.start
                                        < frag_ghost->StrayPageTable_va
                                        + frag_ghost->StrayPageTable_len,
                            ),
                        )) by {
                            assert forall|m: Mapping|
                                old_removed.contains(m) implies !prev_mappings.filter(
                                |m2: Mapping|
                                    frag_ghost->StrayPageTable_va <= m2.va_range.start
                                        < frag_ghost->StrayPageTable_va
                                        + frag_ghost->StrayPageTable_len,
                            ).contains(m) by {
                                assert(!prev_mappings.contains(m));
                            };
                        };
                        vstd::set_lib::lemma_set_disjoint_lens(
                            old_removed,
                            prev_mappings.filter(
                                |m2: Mapping|
                                    frag_ghost->StrayPageTable_va <= m2.va_range.start
                                        < frag_ghost->StrayPageTable_va
                                        + frag_ghost->StrayPageTable_len,
                            ),
                        );
                    }
                    num_unmapped += num_frames;
                    proof {
                        assert(0x0000_8000_0000_0000usize < KERNEL_VADDR_RANGE.end as usize)
                            by (compute_only);
                        crate::specs::mm::page_table::cursor::page_size_lemmas::lemma_va_plus_page_size_no_overflow(
                        va, len);
                    }
                    #[verus_spec(with Tracked(tlb_model))]
                    self.flusher.issue_tlb_flush_with(TlbFlushOp::Range(va..va + len), pt);
                },
            }

            proof {
                let ghost mm = match frag_ghost {
                    PageTableFrag::Mapped { va: fv, item: fi, .. } => CursorView::<
                        UserPtConfig,
                    >::item_into_mapping(fv, fi),
                    _ => arbitrary(),
                };
                let ghost sv = CursorView::<UserPtConfig> {
                    cur_va: match frag_ghost {
                        PageTableFrag::Mapped { va: fv, .. } => fv as Vaddr,
                        _ => 0,
                    },
                    mappings: prev_mappings,
                    phantom: PhantomData,
                };
                let ghost sm = sv.split_while_huge(mm.page_size).mappings;
                let ghost is_mapped = frag_ghost is Mapped;
                let ghost subtree = match frag_ghost {
                    PageTableFrag::StrayPageTable { va: fv, len: fl, .. } => prev_mappings.filter(
                        |m2: Mapping| fv <= m2.va_range.start < fv + fl,
                    ),
                    _ => Set::empty(),
                };

                // Update ghost tracking variables.
                match frag_ghost {
                    PageTableFrag::StrayPageTable { .. } => {
                        removed = old_removed.union(subtree);
                    },
                    PageTableFrag::Mapped { .. } => {
                        adjusted_base = sm.union(old_removed);
                        removed = old_removed.union(set![mm]);
                    },
                }

                // Mapped-case setup: establish split_while_huge properties once.
                if is_mapped {
                    assert forall|m: Mapping, x: Mapping| #[trigger]
                        prev_mappings.contains(m) && #[trigger] old_removed.contains(
                            x,
                        ) implies Mapping::disjoint_vaddrs(m, x) by {
                        assert(old_adjusted.contains(m));
                        assert(old_adjusted.contains(x));
                    };
                    sv.split_while_huge_disjoint(mm.page_size, old_removed);
                    sv.lemma_split_while_huge_preserves_inv(mm.page_size);
                }
                assert forall|m: Mapping| #[trigger] removed.contains(m) implies m.va_range.end
                    <= 0x0000_8000_0000_0000_usize by {
                    if !old_removed.contains(m) {
                        if is_mapped {
                            assert(m == mm);
                            sv.split_while_huge_refinement(mm.page_size, mm);
                            if !prev_mappings.contains(mm) {
                                let parent = choose|p: Mapping| #[trigger]
                                    prev_mappings.contains(p) && p.va_range.start
                                        <= mm.va_range.start && mm.va_range.end <= p.va_range.end
                                        && mm.pa_range.start == (p.pa_range.start + (
                                    mm.va_range.start - p.va_range.start)) as Paddr && mm.property
                                        == p.property;
                            }
                        } else {
                            assert(prev_mappings.contains(m));
                        }
                    }
                };

                // Prove |removed| tracking (disjointness + cardinality).

                match frag_ghost {
                    PageTableFrag::StrayPageTable { .. } => {
                        assert(old_removed.disjoint(subtree)) by {
                            assert forall|e: Mapping|
                                old_removed.contains(e) implies !subtree.contains(e) by {};
                        };
                        vstd::set_lib::lemma_set_disjoint_lens(old_removed, subtree);
                        assert(removed == old_removed + subtree);
                    },
                    PageTableFrag::Mapped { .. } => {
                        assert(old_removed.disjoint(set![mm])) by {
                            assert forall|e: Mapping| #[trigger]
                                old_removed.contains(e) implies !set![mm].contains(e) by {};
                        };
                        vstd::set_lib::lemma_set_disjoint_lens(old_removed, set![mm]);
                        assert(removed == old_removed + set![mm]);
                        vstd::set_lib::lemma_set_empty_equivalency_len(Set::<Mapping>::empty());
                        vstd::set::lemma_set_insert_len(Set::<Mapping>::empty(), mm);
                    },
                }

                // Maintain wf_mapping_set(adjusted_base) — only changes in Mapped case.
                if is_mapped {
                    crate::specs::mm::page_table::mapping_set_lemmas::lemma_wf_subset(
                        old_adjusted,
                        old_removed,
                    );
                    assert forall|m: Mapping, n: Mapping| #[trigger]
                        sm.contains(m) && #[trigger] old_removed.contains(n) implies m.va_range.end
                        <= n.va_range.start || n.va_range.end <= m.va_range.start by {
                        sv.split_while_huge_refinement(mm.page_size, m);
                        assert(!prev_mappings.contains(n));
                        if prev_mappings.contains(m) {
                        } else {
                            let p = choose|p: Mapping| #[trigger]
                                prev_mappings.contains(p) && p.va_range.start <= m.va_range.start
                                    && m.va_range.end <= p.va_range.end && m.pa_range.start == (
                                p.pa_range.start + (m.va_range.start - p.va_range.start)) as Paddr
                                    && m.property == p.property;
                            assert(old_adjusted.contains(p));
                        }
                    };
                    crate::specs::mm::page_table::mapping_set_lemmas::lemma_wf_union(
                        sm,
                        old_removed,
                    );
                }
                // Maintain mappings == adjusted_base \ removed.

                assert forall|e: Mapping| #[trigger]
                    adjusted_base.difference(removed).contains(e)
                        <==> cursor_owner@.mappings.contains(e) by {};

                assert(removed.subset_of(adjusted_base)) by {
                    assert forall|e: Mapping| #[trigger]
                        removed.contains(e) implies adjusted_base.contains(e) by {};
                };

                // Maintain: not-yet-removed mappings in [start, end) are either
                // ahead of the cursor or sub-mappings of a boundary-straddling parent.
                assert forall|m: Mapping|
                    #![auto]
                    adjusted_base.contains(m) && !removed.contains(m) && start_va
                        <= m.va_range.start && m.va_range.start < end_va implies m.va_range.start
                    >= cursor_owner@.cur_va || exists|parent: Mapping| #[trigger]
                    old(cursor_owner)@.mappings.contains(parent) && parent.va_range.start < start_va
                        && parent.va_range.start <= m.va_range.start && m.va_range.end
                        <= parent.va_range.end && m.pa_range.start == (parent.pa_range.start + (
                    m.va_range.start - parent.va_range.start)) as Paddr && m.property
                        == parent.property by {
                    if m.va_range.start < cursor_owner@.cur_va {
                        if m.va_range.start >= prev_va {
                            // m was just processed — contradiction via empty filtered sets.
                            match frag_ghost {
                                PageTableFrag::StrayPageTable { va: frag_va, .. } => {
                                    if m.va_range.start >= frag_va {
                                        assert(cursor_owner@.mappings.filter(
                                            |m2: Mapping|
                                                frag_va <= m2.va_range.start < self.pt_cursor.0.va,
                                        ).contains(m));
                                    } else {
                                        assert(prev_mappings.filter(
                                            |m2: Mapping| prev_va <= m2.va_range.start < frag_va,
                                        ).contains(m));
                                    }
                                },
                                PageTableFrag::Mapped { va: frag_va, .. } => {
                                    if m.va_range.start >= (frag_va as usize) {
                                        assert(cursor_owner@.mappings.filter(
                                            |m2: Mapping|
                                                (frag_va as usize) <= m2.va_range.start
                                                    < self.pt_cursor.0.va,
                                        ).contains(m));
                                    } else {
                                        assert(prev_mappings.filter(
                                            |m2: Mapping|
                                                prev_va <= m2.va_range.start < (frag_va as usize),
                                        ).contains(m));
                                    }
                                },
                            }
                            assert(false);
                        } else if is_mapped {
                            // m.start < prev_va, m ∈ sm \ old_removed.
                            assert(sm.contains(m));
                            sv.split_while_huge_refinement(mm.page_size, m);
                            if prev_mappings.contains(m) {
                                // m ∈ old_adjusted \ old_removed — previous invariant applies directly.
                            } else {
                                // m is a sub-mapping of some p ∈ prev_mappings.
                                let p = choose|p: Mapping| #[trigger]
                                    prev_mappings.contains(p) && p.va_range.start
                                        <= m.va_range.start && m.va_range.end <= p.va_range.end
                                        && m.pa_range.start == (p.pa_range.start + (m.va_range.start
                                        - p.va_range.start)) as Paddr && m.property == p.property;
                                assert(old_adjusted.contains(p) && !old_removed.contains(p));
                                if p.va_range.start < start_va {
                                    // p itself or its ancestor is the boundary parent.
                                    if !old(cursor_owner)@.mappings.contains(p) {
                                        let orig = choose|orig: Mapping| #[trigger]
                                            old(cursor_owner)@.mappings.contains(orig)
                                                && orig.va_range.start <= p.va_range.start
                                                && p.va_range.end <= orig.va_range.end
                                                && p.pa_range.start == (orig.pa_range.start + (
                                            p.va_range.start - orig.va_range.start)) as Paddr
                                                && p.property == orig.property;
                                        assert(orig.inv());
                                        assert(m.inv());
                                        crate::specs::mm::page_table::mapping_set_lemmas::lemma_sub_mapping_pa_compose(
                                        m, p, orig);
                                    }
                                } else if p.va_range.start >= end_va {
                                    assert(false);  // p.start <= m.start < end_va, contradiction.
                                } else {
                                    // start_va <= p.start < end_va, p.start < prev_va.
                                    // Previous invariant gives boundary ancestor orig.
                                    let orig = choose|orig: Mapping| #[trigger]
                                        old(cursor_owner)@.mappings.contains(orig)
                                            && orig.va_range.start < start_va && orig.va_range.start
                                            <= p.va_range.start && p.va_range.end
                                            <= orig.va_range.end && p.pa_range.start == (
                                        orig.pa_range.start + (p.va_range.start
                                            - orig.va_range.start)) as Paddr && p.property
                                            == orig.property;
                                    assert(orig.inv());
                                    assert(m.inv());
                                    crate::specs::mm::page_table::mapping_set_lemmas::lemma_sub_mapping_pa_compose(
                                    m, p, orig);
                                }
                            }
                        }
                    }
                };

                // Maintain: old mappings outside [start, end) survive in adjusted_base.
                if is_mapped {
                    assert forall|m: Mapping|
                        old(cursor_owner)@.mappings.contains(m) && (m.va_range.end <= start_va
                            || m.va_range.start
                            >= end_va) implies #[trigger] adjusted_base.contains(m) by {
                        if m.va_range.end <= start_va {
                            assert(m.inv());
                        }
                        sv.split_while_huge_locality(mm.page_size, m);
                    };

                    // Maintain: refinement — every mapping in adjusted_base comes from
                    // old mappings or is a sub-mapping of one.
                    assert forall|m: Mapping| #[trigger] adjusted_base.contains(m) implies old(
                        cursor_owner,
                    )@.mappings.contains(m) || exists|parent: Mapping| #[trigger]
                        old(cursor_owner)@.mappings.contains(parent) && parent.va_range.start
                            <= m.va_range.start && m.va_range.end <= parent.va_range.end
                            && m.pa_range.start == (parent.pa_range.start + (m.va_range.start
                            - parent.va_range.start)) as Paddr && m.property == parent.property by {
                        if !old_removed.contains(m) {
                            sv.split_while_huge_refinement(mm.page_size, m);
                            if !prev_mappings.contains(m) {
                                let p = choose|p: Mapping| #[trigger]
                                    prev_mappings.contains(p) && p.va_range.start
                                        <= m.va_range.start && m.va_range.end <= p.va_range.end
                                        && m.pa_range.start == (p.pa_range.start + (m.va_range.start
                                        - p.va_range.start)) as Paddr && m.property == p.property;
                                assert(old_adjusted.contains(p));
                                if !old(cursor_owner)@.mappings.contains(p) {
                                    let orig = choose|orig: Mapping| #[trigger]
                                        old(cursor_owner)@.mappings.contains(orig)
                                            && orig.va_range.start <= p.va_range.start
                                            && p.va_range.end <= orig.va_range.end
                                            && p.pa_range.start == (orig.pa_range.start + (
                                        p.va_range.start - orig.va_range.start)) as Paddr
                                            && p.property == orig.property;
                                    assert(orig.inv());
                                    assert(m.inv());
                                    crate::specs::mm::page_table::mapping_set_lemmas::lemma_sub_mapping_pa_compose(
                                    m, p, orig);
                                }
                            }
                        }
                    }
                };
            }
        }
        proof {
            let old_view = old(cursor_owner)@;
            let new_view = cursor_owner@;

            // Bridge from loop invariant to unmap_spec.
            let start = old_view.cur_va;
            let end = (old_view.cur_va + len) as Vaddr;

            assert forall|m: Mapping|
                #![auto]
                old_view.mappings.contains(m) && (m.va_range.end <= start || m.va_range.start
                    >= end) implies new_view.mappings.contains(m) by {
                assert(adjusted_base.contains(m));
                if m.va_range.end <= start {
                    assert(m.inv());
                }
            };

            assert forall|m: Mapping|
                new_view.mappings.contains(m) && start <= m.va_range.start < end implies exists|
                parent: Mapping,
            | #[trigger]
                old_view.mappings.contains(parent) && parent.va_range.start < start
                    && parent.va_range.start <= m.va_range.start && m.va_range.end
                    <= parent.va_range.end && m.pa_range.start == (parent.pa_range.start + (
                m.va_range.start - parent.va_range.start)) as Paddr && m.property
                    == parent.property by {};

            assert forall|m: Mapping|
                new_view.mappings.contains(m) implies old_view.mappings.contains(m) || exists|
                parent: Mapping,
            | #[trigger]
                old_view.mappings.contains(parent) && parent.va_range.start <= m.va_range.start
                    && m.va_range.end <= parent.va_range.end && m.pa_range.start == (
                parent.pa_range.start + (m.va_range.start - parent.va_range.start)) as Paddr
                    && m.property == parent.property by {};
        }

        #[verus_spec(with Tracked(tlb_model))]
        self.flusher.dispatch_tlb_flush();

        num_unmapped
    }

    /// Applies the operation to the next slot of mapping within the range.
    ///
    /// The range to be found in is the current virtual address with the
    /// provided length.
    ///
    /// The function stops and yields the actually protected range if it has
    /// actually protected a page, no matter if the following pages are also
    /// required to be protected.
    ///
    /// It also makes the cursor moves forward to the next page after the
    /// protected one. If no mapped pages exist in the following range, the
    /// cursor will stop at the end of the range and return [`None`].
    ///
    /// Note that it will **NOT** flush the TLB after the operation. Please
    /// make the decision yourself on when and how to flush the TLB using
    /// [`Self::flusher`].
    ///
    /// # Verified Properties
    /// ## Preconditions
    /// - **Safety Invariants**: The page table cursor safety invariants
    ///   ([`invariants`](crate::mm::page_table::Cursor::invariants)) and the
    ///   meta-region invariants must hold before the call.
    /// - The cursor must be within the locked range and below the guard level.
    /// - The current entry must be a mapped frame (not absent or a page table node).
    /// - **Liveness**: The length must be page-aligned and within the remaining cursor range.
    /// ## Postconditions
    /// - **Correctness**: If the metadata region was well-formed before the call, it will be
    ///   well-formed after.
    /// ## Panics
    /// Panics if the length is longer than the remaining range of the cursor.
    /// ## Safety
    /// - From a soundness perspective changing a userspace page's `prop` field is safe.
    #[verus_spec(r =>
        with
            Tracked(owner): Tracked<&mut CursorOwner<'a, UserPtConfig>>,
            Tracked(regions): Tracked<&mut MetaRegionOwners>,
            Tracked(guards): Tracked<&mut Guards>,
        requires
            old(self).pt_cursor.0.invariants(*old(owner), *old(regions), *old(guards)),
            forall |p: PageProperty| op.requires((p,)),
            // POTENTIALLY UNSOUND PATCH: trackedness preservation. For UserPtConfig
            // this is trivially true (tracked is constant). See `Entry::protect`.
            forall |pa: Paddr, level: PagingLevel, p_in: PageProperty, p_out: PageProperty,
                perm: Tracked<Option<<UserPtConfig as PageTableConfig>::Perm>>| #![auto]
                op.ensures((p_in,), p_out) ==> (
                    UserPtConfig::item_into_raw(UserPtConfig::item_from_raw(
                        pa, level, p_out, perm,
                    )).3@ is Some
                ) == (perm@ is Some),
            forall |pa: Paddr, level: PagingLevel, p_in: PageProperty, p_out: PageProperty| #![auto]
                op.ensures((p_in,), p_out)
                    && <PageTableEntry as PageTableEntryTrait>::new_page_req(pa, level, p_in) ==>
                        <PageTableEntry as PageTableEntryTrait>::new_page_req(pa, level, p_out),

            old(self).pt_cursor.0.find_next_panic_condition(len) ==> may_panic(),
        ensures
            !old(self).pt_cursor.0.find_next_panic_condition(len),
            final(self).pt_cursor.0.invariants(*final(owner), *final(regions), *final(guards)),
            final(self).pt_cursor.0.barrier_va == old(self).pt_cursor.0.barrier_va,
    )]
    pub fn protect_next(
        &mut self,
        len: usize,
        op: impl FnOnce(PageProperty) -> PageProperty,
    ) -> Option<Range<Vaddr>> {
        // SAFETY: It is safe to protect memory in the userspace.
        unsafe {
            #[verus_spec(with Tracked(owner), Tracked(regions), Tracked(guards))]
            self.pt_cursor.protect_next(len, op)
        }
    }
}

/*cpu_local_cell! {
    /// The `Arc` pointer to the activated VM space on this CPU. If the pointer
    /// is NULL, it means that the activated page table is merely the kernel
    /// page table.
    // TODO: If we are enabling ASID, we need to maintain the TLB state of each
    // CPU, rather than merely the activated `VmSpace`. When ASID is enabled,
    // the non-active `VmSpace`s can still have their TLB entries in the CPU!
    static ACTIVATED_VM_SPACE: *const VmSpace = core::ptr::null();
}*/

/*#[cfg(ktest)]
pub(super) fn get_activated_vm_space() -> *const VmSpace {
    ACTIVATED_VM_SPACE.load()
}*/

/// The configuration for user page tables.
#[verifier::allow(autoderive_clone_without_spec)]
#[derive(Clone, Debug)]
pub struct UserPtConfig {}

/// The item that can be mapped into the [`VmSpace`].
pub struct MappedItem {
    pub frame: UFrame,
    pub prop: PageProperty,
}

#[verus_verify]
impl RCClone for MappedItem {
    open spec fn clone_requires(self, perm: MetaRegionOwners) -> bool {
        self.frame.clone_requires(perm)
    }

    open spec fn clone_ensures(
        self,
        old_perm: MetaRegionOwners,
        new_perm: MetaRegionOwners,
        res: Self,
    ) -> bool {
        &&& self.prop == res.prop
        &&& self.frame.clone_ensures(old_perm, new_perm, res.frame)
    }

    fn clone(&self, Tracked(perm): Tracked<&mut MetaRegionOwners>) -> (res: Self) {
        let frame = self.frame.clone(Tracked(perm));
        Self { frame, prop: self.prop }
    }
}

// SAFETY: `item_into_raw` and `item_from_raw` are implemented correctly,
unsafe impl PageTableConfig for UserPtConfig {
    open spec fn TOP_LEVEL_INDEX_RANGE_spec() -> Range<usize> {
        0..256
    }

    open spec fn TOP_LEVEL_CAN_UNMAP_spec() -> (b: bool) {
        true
    }

    fn TOP_LEVEL_INDEX_RANGE() -> Range<usize> {
        0..256
    }

    fn TOP_LEVEL_CAN_UNMAP() -> (b: bool) {
        true
    }

    type E = PageTableEntry;

    type C = PagingConsts;

    type Item = MappedItem;

    type Perm = (&'static vstd::simple_pptr::PointsTo<MetaSlot>, FracMetadataPerm);

    open spec fn perm_well_formed_with_region(
        pa: Paddr,
        perm: Tracked<Option<Self::Perm>>,
        regions: MetaRegionOwners,
    ) -> bool {
        perm@ is Some ==> {
            let idx = crate::specs::mm::frame::mapping::frame_to_index(pa);
            let frame_perm = perm@->0;
            &&& frame_perm.0 == regions.slots[idx]
            &&& frame_perm.1.frac() == 1
            &&& frame_perm.1.id() == regions.slot_owners[idx].metadata_perm.id()
            &&& MetaSlot::perms_related(*frame_perm.0, frame_perm.1.resource())
        }
    }

    proof fn lemma_none_perm_well_formed(pa: Paddr, regions: MetaRegionOwners) {
    }

    open spec fn item_into_raw_spec(item: Self::Item) -> (
        Paddr,
        PagingLevel,
        PageProperty,
        Tracked<Option<Self::Perm>>,
    ) {
        (
            item.frame.start_paddr_spec(),
            1,
            item.prop,
            Tracked(Some((item.frame.tracked_slot_perm@, item.frame.tracked_metadata_perm@->0))),
        )
    }

    #[verifier::external_body]
    fn item_into_raw(item: Self::Item) -> (res: (
        Paddr,
        PagingLevel,
        PageProperty,
        Tracked<Option<Self::Perm>>,
    )) {
        proof_decl! {
            let tracked frame_permission: FracMetadataPerm;
        }
        let MappedItem { frame, prop } = item;
        proof_decl! {
            let tracked slot_perm = *frame.tracked_slot_perm;
        }
        let level = frame.map_level();
        let paddr = frame.into_raw();
        proof_with!(=> Tracked(frame_permission));
        (paddr, level, prop, Tracked(Some((slot_perm, frame_permission))))
    }

    open spec fn item_from_raw_spec(
        paddr: Paddr,
        _level: PagingLevel,
        prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) -> Self::Item {
        MappedItem {
            frame: UFrame {
                ptr: vstd::simple_pptr::PPtr(
                    crate::mm::frame::meta::mapping::frame_to_meta(paddr),
                    PhantomData,
                ),
                _marker: PhantomData,
                #[cfg(verus_keep_ghost_body)]
                tracked_slot_perm: Tracked((perm@->0).0),
                #[cfg(verus_keep_ghost_body)]
                tracked_metadata_perm: Tracked(Some((perm@->0).1)),
            },
            prop,
        }
    }

    #[verifier::external_body]
    unsafe fn item_from_raw(
        paddr: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        Tracked(perm): Tracked<Option<Self::Perm>>,
    ) -> Self::Item {
        let tracked (slot_perm, frame_permission) = perm.tracked_unwrap();
        proof_with!(Tracked(slot_perm), Tracked(frame_permission));
        let frame = unsafe { UFrame::from_raw(paddr) };
        MappedItem { frame, prop }
    }

    proof fn lemma_item_into_raw_roundtrip(
        pa: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) {
        broadcast use crate::specs::mm::frame::mapping::group_page_meta;

        let item = Self::item_from_raw(pa, level, prop, perm);
        assert(Self::raw_item_well_formed((pa, level, prop, perm)));
        assert(item.frame.ptr.addr() == crate::mm::frame::meta::mapping::frame_to_meta(pa));
        crate::specs::mm::frame::mapping::lemma_paddr_to_meta_biinjective(pa);
    }

    proof fn lemma_item_from_raw_roundtrip(
        item: Self::Item,
        paddr: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) {
        broadcast use crate::specs::mm::frame::mapping::group_page_meta;

        assert(Self::item_well_formed(item));
        crate::specs::mm::frame::mapping::lemma_meta_to_paddr_biinjective(item.frame.ptr.addr());
    }

    open spec fn item_well_formed(item: Self::Item) -> bool {
        item.frame.inv()
    }

    open spec fn raw_item_well_formed(
        item: (Paddr, PagingLevel, PageProperty, Tracked<Option<Self::Perm>>),
    ) -> bool {
        let (pa, level, _prop, perm) = item;
        &&& level == 1
        &&& perm@ is Some
        &&& (perm@->0).0.addr() == crate::mm::frame::meta::mapping::frame_to_meta(pa)
        &&& (perm@->0).0.is_init()
        &&& (perm@->0).1.frac() == 1
        &&& MetaSlot::perms_related(*(perm@->0).0, (perm@->0).1.resource())
    }

    proof fn lemma_perm_well_formed_with_region_preserved(
        pa: Paddr,
        perm: Tracked<Option<Self::Perm>>,
        old_regions: MetaRegionOwners,
        new_regions: MetaRegionOwners,
    ) {
        if perm@ is Some {
            let idx = crate::specs::mm::frame::mapping::frame_to_index(pa);
            let frame_perm = perm@->0;
            assert(frame_perm == perm@->0);
            assert(frame_perm.0 == old_regions.slots[idx]);
            assert(frame_perm.0 == new_regions.slots[idx]);
            assert(frame_perm.1.id() == old_regions.slot_owners[idx].metadata_perm.id());
            assert(frame_perm.1.id() == new_regions.slot_owners[idx].metadata_perm.id());
        }
    }

    proof fn lemma_raw_item_well_formed_preserved(
        pa: Paddr,
        level: PagingLevel,
        old_prop: PageProperty,
        new_prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) {
    }

    proof fn lemma_raw_item_well_formed_split(
        pa: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        child_pa: Paddr,
        child_idx: usize,
        perm: Tracked<Option<Self::Perm>>,
    ) {
    }

    proof fn lemma_huge_raw_item_untracked(
        pa: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) {
    }

    proof fn lemma_item_from_raw_well_formed(
        pa: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        perm: Tracked<Option<Self::Perm>>,
    ) {
        broadcast use crate::specs::mm::frame::mapping::group_page_meta;

        let item = Self::item_from_raw(pa, level, prop, perm);
        crate::specs::mm::frame::mapping::lemma_meta_to_paddr_biinjective(item.frame.ptr.addr());
    }

    proof fn lemma_clone_ensures_concrete(
        item: Self::Item,
        pa: Paddr,
        old_regions: MetaRegionOwners,
        new_regions: MetaRegionOwners,
        res: Self::Item,
    ) {
        use crate::specs::mm::frame::mapping::{frame_to_index, meta_to_index};
        let frame_idx = meta_to_index(item.frame.ptr.addr());
        assert(frame_to_index(pa) == frame_idx);
        assert(<MappedItem as RCClone>::clone_ensures(item, old_regions, new_regions, res));
        assert(item.frame.clone_ensures(old_regions, new_regions, res.frame));
    }

    proof fn lemma_clone_requires_concrete(
        item: Self::Item,
        pa: Paddr,
        level: PagingLevel,
        prop: PageProperty,
        regions: MetaRegionOwners,
    ) {
        use crate::specs::mm::frame::mapping::{frame_to_index, meta_to_index};
        broadcast use crate::specs::mm::frame::mapping::group_page_meta;

        let perm = Self::item_into_raw(item).3;
        Self::lemma_item_from_raw_well_formed(pa, level, prop, perm);
        regions.lemma_contains_valid_frame_paddr(pa);
    }

    proof fn lemma_page_table_config_constant_requirements() {
        use vstd::arithmetic::power2::{lemma2_to64, lemma2_to64_rest, lemma_pow2_adds};
        use vstd_extra::prelude::lemma_usize_pow2_ilog2;

        lemma2_to64();
        lemma2_to64_rest();
        vstd::layout::unsigned_int_max_values();
        lemma_usize_pow2_ilog2(12);
        lemma_usize_pow2_ilog2(9);
        lemma_pow2_adds(9, 39);
        PageTableEntry::lemma_layout();
        Self::C::lemma_paging_consts_properties();
        assert(Self::LEADING_BITS_spec() == 0usize);
    }
}

} // verus!