• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
    • X86isa
      • Program-execution
        • Dynamic-instrumentation
        • Initialize-x86-state
        • Binary-file-load-fn
        • Read-channel-into-byte-list1
        • Setting-up-page-tables
        • Init-zero-page
        • Load-file-into-memory
        • Linux-load
        • Init-sys-view
        • Load-elf-sections
        • Chars-to-c-str
        • String-to-c-str
        • Pack-u64
        • Pack-u32
        • Concrete-simulation-examples
          • Fibonacci32-cosim
          • Fibonacci-cosim
          • Factorial-cosim
            • X86isa-one-fact-cosim
            • Run-x86isa-fact
            • Check-fact-output
            • Fact
          • Nop-cosim
          • Datacopy-cosim
        • Gdt-entry
      • Sdm-instruction-set-summary
      • Tlb
      • Booting-linux
      • Introduction
      • Asmtest
      • X86isa-build-instructions
      • Publications
      • Contributors
      • Machine
      • Implemented-opcodes
      • To-do
      • Proof-utilities
      • Peripherals
      • Model-validation
      • Modelcalls
      • Concrete-simulation-examples
        • Fibonacci32-cosim
        • Fibonacci-cosim
        • Factorial-cosim
          • X86isa-one-fact-cosim
          • Run-x86isa-fact
          • Check-fact-output
          • Fact
        • Nop-cosim
        • Datacopy-cosim
      • Utils
      • Debugging-code-proofs
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Factorial-cosim

Fact

Signature

(fact n) → *

Arguments

n — Guard (natp n).

Definitions and Theorems

Function: fact

(defun fact (n)
  (declare (xargs :guard (natp n)))
  (let ((__function__ 'fact))
    (declare (ignorable __function__))
    (if (or (< n 2) (not (integerp n)))
        1
      (* n (fact (- n 1))))))